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1.  SCOPE 


1.1  Identification. 

Terrain  Parabolic  Equation  Model  (TPEM)  computer  software  configuration  item 
(CSCI).  The  purpose  of  the  TPEM  CSCI  is  to  calculate  range-dependent  electromagnetic 
(EM)  system  propagation  loss  within  a  heterogeneous  atmospheric  medium  over  variable 
terrain,  where  the  radio-frequency  index  of  refraction  is  allowed  to  vary  both  vertically 
and  horizontally,  also  accounting  for  terrain  effects  along  the  path  of  propagation. 

1.2  System  Overview 

The  TPEM  CSCI  model  will  calculate  propagation  loss  values  as  electromagnetic 
(EM)  energy  propagates  through  a  laterally  heterogeneous  atmospheric  medium  where  the 
index  of  refraction  is  allowed  to  vary  both  vertically  and  horizontally,  also  accounting  for 
terrain  effects  along  the  path  of  propagation.  Numerous  Tactical  Environmental  Support 
System  (TESS)  applications  require  EM-system  propagation  loss  values.  The  required 
TPEM  model  described  by  this  docrunent  may  be  applied  to  two  such  TESS  applications, 
one  which  displays  propagation  loss  on  a  range  versus  height  scale  (commonly  referred  to 
as  a  coverage  diagram)  and  one  which  displays  propagation  loss  on  a  propagation  loss 
versus  range/height  scale  (commonly  referred  to  as  a  loss  diagram). 

1.3  Document  Overview 

This  document  specifies  the  functional  requirements  that  are  to  be  met  by  the 
TPEM  CSCI.  A  discussion  of  the  input  software  requirements  is  presented  together  with 
a  general  description  of  the  internal  structure  of  the  TPEM  CSCI  as  it  relates  to  the 
CSCI's  capability. 
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3.  REQUIREMENTS 


3.1  CSCI  Capability  Requirements 

The  required  TPEM  CSCI  propagation  model  is  a  pure  split-step  parabolic 
equation  (PE)  model  that  allows  for  range-dependent  reffactivity  and  variable  terrain 
along  the  path  of  propagation.  It  should  calculate  propagation  loss  both  in  range  and 
altitude. 

The  TPEM  CSCI  should  provide  propagation  loss  for  moderately  low  angles  and 
heights.  It  is  not  required  to  provide  propagation  loss  for  all  heights  and  ranges  desired. 
Propagation  loss  values  will  be  provided  at  all  heights  from  at  least  90%  of  the  desired 
maximum  range  to  the  maximum  range.  The  TPEM  CSCI  should  allow  for  horizontal 
and  vertical  antenna  polarization,  finite  conductivity  based  on  user-specified  ground 
composition  and  dielectric  parameters,  and  the  complete  range  of  EM  system  parameters 
and  most  antenna  patterns  required  by  TESS. 

The  program  flow  of  the  required  TPEM  CSCI  is  illustrated  in  Figure  3-1.  Note 
that  the  TPEM  CSCI  is  shown  within  the  context  of  a  calling  CSCI  application  such  as 
one  that  generates  a  coverage  or  loss  diagram.  The  efficient  implementation  of  the  TPEM 
CSCI  will  have  far  reaching  consequences  upon  the  design  of  an  application  CSCI 
beyond  those  mentioned  in  Section  3.10.  For  example.  Figure  3-1  shows  checking  for  the 
existence  of  a  previously  created  TPEM  output  file  prior  to  the  access  of  the  TPEM 
CSCI.  The  application  CSCI  will  have  to  consider  if  the  atmospheric  or  terrain 
environment  has  changed  since  the  TPEM  output  file  was  created  or  if  any  new  height  or 
range  requirement  is  accommodated  within  the  existing  TPEM  CSCI  output  file. 
Because  these  and  many  more  considerations  are  beyond  the  scope  of  this  document  to 
describe,  an  application  CSCI  designer  should  work  closely  with  the  TPEM  CSCI 
development  agency  in  the  implementation  of  the  TPEM  CSCI.  Figures  3-2  and  3-3 
illustrate  the  program  flow  for  the  main  compute  software  components  (CSC),  PEINIT 
CSC  and  the  PESTEP  CSC,  respectively. 
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Figure  3-2  Program  flow  of  the  PEINIT  CSC 
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Figure  3-3  Program  flow  of  the  PESTEP  CSC 


7 


The  TPEM  CSCI  should  be  divided  into  2  main  computer  software  components 
(CSC)  and  20  additional  software  units  (SU).  The  name,  purpose,  and  a  general 
description  of  processing  required  for  each  SU  follows. 

3.1.1  Parabolic  Equation  Initialization  (PEINIT)  CSC 

The  purpose  of  the  PEINIT  CSC  is  to  interface  with  various  SUs  for  the  complete 
initialization  of  the  TPEM  CSCI. 

The  atmospheric  volume  must  be  "covered"  or  resolved  with  a  mesh  of 
calculation  points  which  will,  as  a  matter  of  routine,  exceed  the  height/range  resolution 
requirements  of  the  particular  application  of  the  TPEM  CSCI.  Upon  entering  the  PEINIT 
CSC,  a  range  and  height  mesh  size  per  the  TPEM  CSCI  output  point  is  calculated  from 
the  number  of  TPEM  outputs  and  the  maximum  CSCI  range  and  height. 

The  terrain  profile  should  be  initially  examined  and  unnecessary  range/height 
points  should  be  discarded  if  neighboring  terrain  slopes  are  redundant.  The  minimum 
terrain  height  should  be  determined,  and  then  the  entire  terrain  profile  should  be  adjusted 
by  this  height  so  that  all  internal  calculations  are  referenced  to  this  height.  This  should  be 
done  in  order  to  maximize  the  PE  transform  calculation  volume. 

A  REFINIT  SU  should  be  referenced  to  initialize  the  TESS  CSCI  specified 
modified  reffactivity  and  also  to  test  for  valid  environment  profiles.  A  PROFREF  SU 
should  adjust  the  environment  profiles  by  the  internal  reference  height,  and  a  INTPROF 
SU  should  define  the  modified  reffactivity  at  all  PE  vertical  mesh  points. 

In  order  to  automatically  determine  the  maximum  PE  calculation  angle,  a 
TRACEA  SU  should  be  referenced.  This  should  determine,  via  ray  tracing,  the  minimum 
angle  for  which  adequate  coverage  can  be  given  with  the  specified  terrain  and 
environment  profile.  A  GETFFTSZ  SU  should  be  referenced  to  determine  the  fast 
Fourier  transform  (FFT)  size  for  the  calculated  angle  and  to  initialize  data  elements 
within  the  PE  region  which  are  dependent  on  the  size  of  the  FFT.  The  minimum  size  for 
the  FFT  is  determined  from  the  Nyquist  criterion. 

A  PE  starting  SU  (XYINIT)  and  an  antenna  pattern  factor  SU  (ANTPAT)  should 
be  referenced  by  the  XYINIT  SU  to  generate  a  first  solution  to  the  PE.  A  FFT  SU  should 
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be  referenced  for  data  elements  required  in  obtaining  the  PE's  starting  solution.  If  vertical 
polarization  is  specified,  then  additional  calculations  should  be  performed  in  the  starter 
solution  using  Kuttler  and  Dockery’s  mixed  transform  method  (Ref  g).  In  this  case  a 
DIEINIT  SU  should  be  used  to  initialize  dielectric  ground  constants.  For  general  ground 
types,  the  permittivity  and  conductivity  are  calculated  as  a  function  of  frequency  from 
curve  fits  to  the  permittivity  and  conductivity  graphs  shown  in  recommendations  and 
reports  of  the  International  Radio  Consulting  Committee  (Ref  m). 

A  TRACEH  SU  should  be  referenced  to  determine  the  height  at  each  output  range 
step  below  which  propagation  loss  solutions  will  be  valid.  No  propagation  loss  solutions 
should  be  provided  above  these  heights. 

Finally,  a  PHASE  1  SU  should  be  referenced  to  initialize  the  free  space  propagator 
arrays,  and  a  PHASE2  SU  should  be  referenced  (for  range-independent  environment 
profile)  to  initialize  the  environment  propagator  arrays. 

3.1. 1.1  Antenna  Pattern  (ANTPAT)  SU 

The  piupose  of  an  ANTPAT  SU  is  to  calculate  a  normalized  antenna  gain 
(antenna  pattern  factor)  for  a  specified  antenna  elevation  angle. 

From  the  antenna  beam  width,  elevation  angle  (an  angle  for  which  the  anteima 
pattern  factor  is  desired),  and  the  antenna  radiation  pattern  type;  an  anterma  factor  should 
be  calculated. 

3.1.1.2  Refractivity  Initialization  (REFINIT)  SU 

The  purpose  of  the  REFINIT  SU  is  to  check  for  valid  environmental  profile  inputs 
and  to  initialize  the  refractivity  arrays. 

Upon  entering,  the  environmental  data  should  be  checked  for  a  range-dependent 
profile,  and  tested  whether  the  range  of  the  last  profile  entered  is  less  than  the  maximum 
output  range  specified.  If  so,  an  error  message  should  be  returned,  depending  on  the 
values  of  error  flags  set  in  the  TESS  CSCI  itself 
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It  should  also  test  for  valid  refiractivity  level  entries  for  each  profile.  If  the  last 
gradient  in  any  profile  is  negative,  it  should  return  an  error  message.  If  no  errors  are 
detected,  the  REFINIT  SU  then  should  extrapolate  the  environmental  profiles  vertically  to 
1000  km  in  height.  Extrapolation  should  not  be  performed  horizontally  from  the  last 
provided  profile;  rather,  the  last  provided  environment  profile  should  be  duplicated  at  10^ 
km  in  range.  This  duplication  of  profiles  is  done  by  the  REMDUP  SU. 

3.1. 1.3  Trace  for  Minimum  Angle  (TRACEA)  SU 

The  purpose  of  the  TRACEA  SU  is  to  perform  a  ray  trace  to  determine  the 
minimum  angle  required  (based  on  the  reflected  ray)  in  obtaining  a  PE  solution  for  all 
heights  up  to  the  maximum  output  height  (or  the  largest  height  allowed  from  the 
maximum  transform  size)  and  for  all  ranges  beyond  90%  of  the  maximum  output  range. 
The  maximum  PE  propagation  angle  should  then  be  determined  from  this  angle.  This 
should  be  done  only  for  smooth  surface  and  automatic  angle  calculation. 

For  terrain  cases,  the  maximum  PE  propagation  angle  should  have  already  been 
set  to  the  larger  of  the  critical  angle  (if  a  duct  exists),  the  angle  that  clears  the  highest 
terrain  peak,  or  the  tangent  angle  determined  from  the  maximum  output  height  and  the 
maximum  output  range. 

If  a  maximum  propagation  angle  is  specified  by  the  TESS  CSCI,  then  the 
maximum  PE  propagation  angle  should  be  determined  based  on  the  given  angle. 
However,  a  ray  trace  should  still  be  performed  in  order  to  determine  the  initial  laimch 
angle  such  that  the  local  angle  of  the  ray  remains  less  than  the  specified  maximum 
propagation  angle.  The  initial  launch  angle  is  to  be  used  in  the  TRACER  SU. 

3.1.1.4  Dielectric  Initialization  (DIEINIT)  SU 

The  purpose  of  the  DIEINIT  SU  is  to  determine  the  conductivity  and  relative 
permittivity  as  function  of  frequency  in  MHz  based  on  general  ground  composition  types. 

3.1.1.5  Get  EFT  Size  (GETFFTSZ)  SU 

The  purpose  of  the  GETFFTSZ  SU  is  to  determine  the  required  transform  size 
based  on  the  maximum  PE  propagation  angle  and  the  specified  maximum  output  height. 
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If  the  transform  size  required  is  greater  than  the  maximum  allowed,  then  the  maximum 
PE  height  calculation  volume  should  be  calculated  based  on  the  maximum  allowable 
transform  size.  Propagation  loss  should  be  provided  only  up  to  the  maximum  PE 
calculation  height  or  the  specified  maximum  output  height,  whichever  is  smaller. 

For  computational  efficiency  reasons,  an  artificial  upper  boimdary  must  be 
established  for  the  PE  solution.  To  prevent  upward  propagating  energy  from  being 
"reflected"  downward  from  this  boimdary  and  contaminating  the  PE  solution,  the  PE 
solution  field  strength  should  be  attenuated  or  "filtered"  above  a  certain  height  to  insure 
that  the  field  strength  just  below  this  boundary  is  reduced  to  zero. 

Upon  entering  this  SU,  the  total  number  of  vertical  points  for  which  a 
transformation  will  be  computed  should  be  determined.  This  term  is  also  referred  to  as 
the  EFT  size.  The  filtering  boundary  height  should  be  determined. 

3.1.1.6  Starter  Field  Initialization  (XYINIT)  SU 

The  purpose  of  the  XYINIT  SU  is  to  calculate  the  complex  PE  solution  at  range 

zero. 


Upon  entering  this  SU,  several  constant  terms  which  will  be  employed  over  the 
entire  PE  mesh  should  be  calculated.  These  are  the  angle  difference  between  mesh  points 
in  p-space;  a  height-gain  value  at  the  source  (transmitter);  and  the  complex  index  of 
refraction  (if  using  vertical  polarization).  The  complex  index  of  refraction  for  vertical 
polarization  is  obtained  from  the  GETALN  SU. 

For  each  point  in  the  PE  p-space  mesh,  the  following  steps  should  be  performed: 

(a)  The  anteima  pattern  ANTPAT  SU  should  be  referenced  to  obtain  an  antenna 
pattern  factor  for  both  a  direct-path  ray  and  a  surface-reflected  ray.  The  complex  surface 
reflection  coefficient  should  be  determined  with  the  direct-path  ray  elevation  angle. 
Since  the  PE  starting  solution  makes  a  flat-earth  assumption,  the  direct-path  ray  elevation 
angle  should  be  used  in  place  of  the  surface-grazing  angle. 

(b)  The  complex  portions  of  the  PE  solution  should  be  determined  from  the 
antenna  pattern  factors,  reflection  coefficient,  elevation  angle,  and  gain. 
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3.1. 1.7  Fast-Fourier  Transform  (FFT)  SU 


The  purpose  of  the  FFT  SU  is  to  separate  the  real  and  imaginary  components  of 
the  complex  PE  field  into  two  real  arrays  and  then  to  reference  the  SINFFT  SU  which 
transforms  each  portion  of  the  PE  solution. 

3. 1.1. 8  Sine  Fast-Fourier  Transform  (SINFFT)  SU 

A  function  with  a  common  period,  such  as  a  solution  to  the  wave  equation,  may 
be  represented  by  a  series  consisting  of  sines  and  cosines.  This  representation  is  known 
as  a  Fourier  series.  An  analytical  transformation  of  this  fimction,  known  as  a  Fourier 
transform,  may  be  used  to  obtain  a  solution  for  the  fimction. 

The  solution  to  the  PE  approximation  to  Maxwell's  wave  equation  is  to  be 
obtained  by  using  such  a  Fourier  transformation  fimction.  The  TPEM  CSCI  requires  only 
the  real-valued  sine  transformation  in  which  the  real  and  imaginary  parts  of  the  PE 
equation  are  transformed  separately.  A  Fourier  transformation  for  possible  use  with  the 
TPEM  CSCI  is  described  by  Bergland  (Ref  a)  and  Cooley,  Lewis,  and  Welsh  (Ref  b). 

3.1. 1.9  Trace  Launch  Angle  (TRACEH)  SU 

The  purpose  of  the  TRACEH  SU  is  to  perform  a  ray  trace  for  a  single  ray  and 
store  all  heights  traced  to  each  output  range  step.  The  initial  launch  angle  should  be 
determined  from  the  maximum  PE  propagation  angle.  The  heights  are  stored  for 
subsequent  output  of  propagation  loss  values.  This  is  done  so  that  only  loss  values  that 
fall  within  the  valid  PE  solution  region  are  output. 

3.1.1.10  Free-Space  Propagator  Phase  Term  (PHASEl)  SU 

The  purpose  of  the  PHASEl  SU  is  to  initialize  the  ffee-space  propagator  array  for 
subsequent  use  in  the  PESTEP  SU.  The  propagator  term  should  be  computed  at  each  PE 
angle,  or  p-space,  mesh  point  using  the  wide-angle  propagator.  Finally,  a  filter,  or 
attenuation  fimction  (fi-equently  called  “window”),  should  be  applied  to  the  upper  one- 
quarter  of  the  array  corresponding  to  the  highest  one-quarter  of  the  maximum  propagation 
angle. 
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3.1.1.11  Environmental  Propagator  Phase  Term  (PHASE2)  SU 


The  purpose  of  the  PHASE2  SU  is  to  calculate  the  environmental  phase  term  for 
an  interpolated  environment  profile.  This  environmental  phase  term  should  be  computed 
at  each  PE  height,  or  z-space,  mesh  point.  Finally,  a  filter,  or  attenuation  function 
(frequently  called  “window”),  should  be  applied  to  the  upper  one-quarter  of  the  array 
corresponding  to  the  highest  one-quarter  of  the  calculation  height  domain. 

3.1.1.12  Profile  Reference  (PROFREF)  SU 

The  purpose  of  the  PROFREF  SU  is  to  adjust  the  current  refractivity  profile  so 
that  it  is  relative  to  a  reference  height.  The  reference  height  should  be  initially  the 
minimmn  height  of  the  terrain  profile.  Upon  subsequent  calls  from  the  PESTEP  SU,  the 
refractivity  profile  should  be  adjusted  by  the  local  ground  height  at  each  PE  range  step. 

3.1.1.13  Interpolate  Profile  (INTPROF)  SU 

The  purpose  of  the  INTPROF  SU  is  to  perform  a  linear  interpolation  vertically 
with  height  on  the  refractivity  profile.  Interpolation  should  be  performed  at  each  PE 
mesh  height  point. 

3.1.2  Parabolic  Equation  Step  (PESTEP)  CSC 

The  purpose  of  the  PESTEP  CSC  is  to  advance  the  entire  TPEM  CSCI  algorithm 
one  output  range  step,  referencing  various  SUs  to  calculate  the  propagation  loss  at  the 
current  output  range. 

Upon  entering  the  PESTEP  CSC,  the  next  output  range  should  be  determined  and 
an  iterative  loop  begun  to  advance  the  PE  solution  such  that  for  the  current  PE  range,  a 
PE  solution  is  calculated  from  the  solution  at  the  previous  PE  solution  range.  This 
procedure  is  to  be  repeated  until  the  output  range  is  reached. 

At  each  PE  range  step,  the  local  ground  height  should  be  determined  and  the  PE 
field  should  be  “shifted”  by  the  number  of  bins,  or  PE  mesh  height  points,  corresponding 
to  the  local  ground  height.  This  is  done  in  a  DOSHIFT  SU. 
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If  using  vertical  polarization,  a  GETALN  SU  should  be  referenced  to  determine 
the  impedance  term  and  all  associated  variables  used  for  the  mixed  transform 
calculations. 

If  the  TPEM  CSCI  is  being  used  in  a  range-dependent  mode,  that  is,  more  than 
one  profile  has  been  input;  or  a  terrain  profile  is  specified,  the  REFINTER  SU  should  be 
referenced  to  compute  a  new  modified  refractive  index  profile  adjusted  by  the  local 
ground  height  at  the  current  range.  The  PHASE2  SU  should  be  then  referenced  to 
compute  a  new  environmental  phase  term  using  this  new  refractivity  profile. 

Using  a  FRSTP  SU,  the  PE  solution  is  transformed  to  p-space,  advanced  by  the 
free  space  propagator  array,  and  transformed  back  to  z-space.  The  environmental  phase 
term  should  be  then  applied  to  obtain  the  new  final  PE  solution  at  the  current  range. 
Finally,  a  CALCLOS  SU  should  be  referenced  to  obtain  the  propagation  loss  at  the 
desired  output  heights  at  the  current  output  range. 

3.1.2.1  DOSHIFTSU 

The  purpose  of  the  DOSHIFT  SU  is  to  shift  the  field  by  the  number  of  bins,  or  PE 
mesh  heights  corresponding  to  local  ground  height. 

Upon  entry,  the  number  of  bins  to  be  shifted  should  be  determined.  The  PE 
solution  should  then  be  shifted  downward  if  the  local  ground  is  currently  at  a  positive 
slope,  and  upward  if  the  local  ground  is  at  a  negative  slope. 

3.1.2.2  GETALN  SU 

The  purpose  of  the  GETALN  SU  is  to  compute  the  impedance  term  in  the 
Leontovich  boundary  condition,  and  the  complex  index  of  refraction  for  finite 
conductivity  and  vertical  polarization  calculations.  These  formulas  follow  Kuttler  and 
Dockery 's  method  (Ref.  g). 

3. 1.2.3  Free  Space  Range  Step  (FRSTP)  SU 

The  purpose  of  the  FRSTP  SU  is  to  propagate  the  complex  PE  solution  field  in 
free  space  by  one  range  step. 
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Upon  entry  the  PE  field  should  be  transformed  to  p-space  and  then  multiplied  by 
the  free  space  propagator.  Before  exiting  the  PE  field  should  be  transformed  back  to  z- 
space.  Both  transforms  are  to  be  performed  using  a  EFT  SU. 

3.1.2.4  Refractivity  Interpolation  (REFINTER)  SU 

The  purpose  of  the  REFINTER  SU  is  to  interpolate  both  horizontally  and 
vertically  on  the  modified  refractivity  profiles.  Profiles  are  then  adjusted  so  they  are 
relative  to  the  local  ground  height . 

Upon  entry,  if  there  is  a  range-dependent  environment,  horizontal  interpolation  in 
range  to  the  current  PE  range  should  be  performed  between  the  two  neighboring  TESS 
CSCI  profiles  that  are  specified  relative  to  mean  sea  level.  A  REMDUP  SU  should  be 
referenced  to  remove  duplicate  refractivity  levels,  and  the  PROFREF  SU  should  then  be 
referenced  to  adjust  the  new  profile  relative  to  the  internal  reference  height  corresponding 
to  the  minimum  height  of  the  terrain  profile.  The  PROFREF  SU  should  then  be 
referenced  once  more  to  adjust  the  profile  relative  to  the  local  ground  height,  and  upon 
exit  from  the  PROFREF  SU,  the  INTPROF  SU  should  be  referenced  to  interpolate 
vertically  on  the  refractivity  profile  at  each  PE  mesh  height  point. 

3.1.2.5  Remove  Duplicate  Refractivity  Levels  (REMDUP)  SU 

The  purpose  of  the  REMDUP  SU  is  to  remove  any  duplicate  refractivity  levels  in 
the  currently  interpolated  profile. 

3.1.2.6  Calculate  Propagation  Loss  (CALCLOS)  SU 

The  purpose  of  the  CALCLOS  SU  is  to  determine  the  propagation  loss  at  each 
output  height  point  at  the  current  output  range. 

Upon  entry  the  local  ground  height  at  the  current  output  range  is  determined.  All 
propagation  loss  values  at  output  height  points  up  to  the  local  ground  height  should  be 
then  set  to  zero.  The  first  valid  loss  point  should  be  determined  corresponding  to  the  first 
output  height  point  above  the  ground  height.  Next,  the  last  valid  loss  point  should  be 
determined  based  on  the  smaller  of  the  maximum  output  height  or  the  height  traced  along 
the  maximum  PE  propagation  angle  to  the  current  output  range. 
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From  the  height  of  the  first  valid  loss  point  to  the  height  of  the  last  valid  loss 
point,  the  GETPFAC  SU  should  be  referenced  to  obtain  the  propagation  factor  in  dB 
(field  strength  relative  to  free  space)  at  all  corresponding  output  heights  at  the  previous 
PE  range  and  at  the  current  PE  range.  Then,  for  each  valid  output  height,  horizontal 
interpolation  in  range  should  be  performed  to  obtain  the  propagation  factor  at  the  current 
output  range.  From  the  propagation  factor  and  the  free-space  loss,  the  propagation  loss  at 
each  valid  output  height  should  then  be  determined,  with  the  propagation  loss  set  to  (-1.) 
for  all  output  height  points  above  the  last  valid  output  height  but  less  than  the  maximum 
output  height.  All  loss  values  returned  to  the  TESS  CSCI  at  this  point  should  be  in 
centibels  (10  cB  =  1  dB) 

3.1.2.7  Get  Propagation  Factor  (GETPFAC)  SU 

The  purpose  of  the  GETPFAC  SU  is  to  determine  the  propagation  factor  at  the 
specified  height  in  dB. 

Upon  entering,  a  vertical  interpolation  vUth  height  on  the  PE  solution  field  should 
be  performed  to  obtain  the  magnitude  of  the  field  at  the  desired  output  height  point.  An 
additional  calculation  should  be  made  and  the  propagation  factor  should  then  be  returned 
in  dB. 

3.2  CSCI  External  Interface  Requirements 

The  TPEM  CSCI  is  accessed,  through  the  PEINIT  CSC,  by  a  subroutine  call  from 
the  TESS  CSCI  which  should  provide,  as  global  data  elements,  the  values  specified  in 
Table  3-1  through  Table  3-4. 

The  TPEM  CSCI  external  data  elements,  i.e.  those  data  which  must  be  provided 
by  the  calling  TESS  CSCI  prior  to  the  TPEM  CSCI  execution  may  be  divided  into  four 
classifications.  The  first  is  external  data  related  to  the  atmospheric  environment, 
specified  within  Table  3-1;  the  second  is  data  related  to  the  EM  system  being  assessed, 
specified  within  Table  3-2;  the  third  is  data  related  to  the  implementation  of  the  TPEM 
CSCI  by  the  TESS  CSCI,  specified  within  Table  3-3;  and  the  fourth  is  data  related  to  the 
terrain  information,  specified  within  Table  3-4.  Each  table  lists  the  type,  units,  and 
bounds  of  each  data  element.  Table  3-5  specifies  the  output  data  of  the  TPEM  CSCI 
model. 
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Table  3-1  TPEM  CSCI  Environmental  Data  Element  Requirements 


Name 

Description 

Units 

Bounds 

refmsl 

Profile  modified  refractivity 
array  referenced  to  mean  sea 
level 

real 

M 

>0.0  a 

hmsl 

Profile  height  array 

real 

m 

>0.0  a 

nprof 

Number  of  profiles 

integer 

N/A 

>1 

Ivlep 

Number  of  profile  levels 

integer 

N/A 

>2 

rngprof 

Array  of  ranges  to  each  profile 

real 

m 

>0.0 

^  Couplets  of  height  and  modified  refractivity  associated  with  that 
height  are  referred  to  within  this  document  as  an  environmental 
profile. 
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Table  3-2  TPEM  CSCI  External  EM  System  Data  Element  Requirements 


Name 

Description 

WMSSI^ 

Units 

Bounds 

bwidth 

Antenna  vertical  beam  width 

real 

degree 

0.5  to  45.0 

elev 

Antenna  elevation  angle 

real 

degree 

-10.0  to  10.0 

freq 

EM  system  frequency 

real 

MHz 

100.0  to  20,000.0 

ipat 

Antenna  pattern 

0  =  Omni-directional 

1  =  Gaussian 

2  =  Sine  (X)/X 

3  =  Cosecant-squared 

4  =  Generic  height-finder 

integer 

N/A 

0  to  4 

polar 

Antenna  polarization 

H  =  Horizontal 

V  =  Vertical 

character 

N/A 

‘H’  or  ‘V’ 

antht 

Antenna  height  above  local 
ground  at  range  0.0  m 

real 

m 

>  1.0 
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Table  3-3  TPEM  CSCI  External  Implementation  Constants 


Name 

Description 

Type 

Units 

Bounds 

mxnfft 

Maximum  power  of  2  for 
transform  size 

integer 

N/A 

>9 

maxpts 

Maximum  number  points  for  EFT 
array 

integer 

N/A 

=  2 

mxlvls 

Maximum  number  of  profile 
levels  for  all  possible  applications 
of  TPEM 

integer 

N/A 

>2b 

mxrout 

Maximum  number  of  range 
output  points  for  all  possible 
applications  of  TPEM 

integer 

N/A 

>  1  a 

nrout 

Number  of  range  output  points  for 
a  particular  application  of  TPEM 

integer 

N/A 

=  mxrout 

mxzout 

Maximum  number  of  height 
output  points  for  all  possible 
applications  of  TPEM 

integer 

N/A 

>1  a 

nzout 

Number  of  height  output  points 
for  a  particular  application  of 
TPEM 

integer 

N/A 

=  mxzout  a 

mxnprof 

Maximum  number  of  profiles  for 
all  possible  applications  of  TPEM 

integer 

N/A 

>lb 

mxter 

Maximum  number  of  height/range 
points  in  terrain  profile  for  all 
possible  applications  of  TPEM 

integer 

N/A 

>2c 

lerr6 

Logical  flag  to  allow  for  error  -6 
to  be  bypassed 

logical 

N/A 

‘.true.’  or 

‘.false.’  a 

lerrl2 

Logical  flag  to  allow  for  error  -12 
to  be  bypassed 

logical 

N/A 

‘.true.’  or 

‘.false.’  a 
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Table  3-3;  TPEM  CSCI  External  Implementation  Constants  (cont’d) 


Name 

Description 

Type 

Units 

Bounds 

rmax 

Maximum  range  output  for  a 
particular  application  of  TPEM 

real 

m 

>  5000.0  b 

hmin 

Minimum  height  output  for  a 
particular  application  of  TPEM 

real 

m 

>0.0c 

hmax 

Maximum  height  output  for  a 
particular  application  of  TPEM 

real 

m 

>  100.0  b 

propang 

Maximum  PE  propagation  angle 

real 

deg 

>0.0  a 

^  refer  to  section  3.5.1  for  a  complete  description. 
^  refer  to  section  3.5.2  for  a  complete  description. 
^  refer  to  section  3.5.3  for  a  complete  description. 
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Table  3-4  TPEM  CSCI  External  Terrain  Data  Element  Requirements 


Name 

Description 

Type 

Units 

Bounds 

terx 

Terrain  profile  range  array 

real 

m 

>0.0  a 

tery 

Terrain  profile  height  array 

real 

m 

>0.0  a 

Up 

Number  of  terrain  profile  points 
for  a  particular  application  of 
TPEM 

integer 

N/A 

<  mxter  a 

igr 

Number  of  groimd  types  for  a 
particular  application  of  TPEM 

integer 

N/A 

<50 

igrnd 

Array  of  ground  composition 
types  for  a  particular  application 
of  TPEM 

integer 

N/A 

0  <  igrnd  <  5  a 

0  =  Sea  water 

1  =  Fresh  water 

2  =  Wet  groimd 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  User  defined 

rgrnd 

Array  of  ranges  for  which  ground 
types  are  applied  for  a  particular 
application  of  TPEM 

real 

m 

>0.0  a 

dielec 

2-dimensional  array  of  relative 
permittivity  and  conductivity  for  a 
particular  application  of  TPEM 

real 

N/A 

>0a 

^  refer  to  Section  3.5.3  for  a 
complete  description. 
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Table  3-5  TPEM  CSCI  Output  Data  Element  Requirements 


Name 

Description 

Type 

Units 

Source 

hminter 

Minimum  elevation  height  of 
terrain  profile 

real 

m 

PEINIT 

CSC 

terror 

Integer  value  that  is  returned  if 
an  error  exists  in  input  data 

integer 

N/A 

PEINIT 

CSC 

mloss 

Propagation  loss 

integer 

cB 

PESTEP 

CSC 

jstart 

Output  height  index  at  which 
valid  propagation  loss  values 
begin 

integer 

N/A 

PESTEP 

CSC 

jend 

Output  height  index  at  which 
valid  propagation  loss  values  end 

integer 

N/A 

PESTEP 

CSC 

rout 

Current  range 

^Refer  to  Section  3.5.1  for  a  complete 
description. 

real 

m 

PESTEP 

CSC 
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3.3  CSCI  Internal  Interface  Requirements 


Section  3.1  shows  the  relationship  between  the  TPEM  CSCI  and  its  two  main 
CSCs  PEINIT  and  PESTEP.  This  relationship  is  illustrated  in  Figure  3-1.  The  required 
internal  interface  between  these  two  CSCs  and  the  TPEM  CSCI  is  left  to  the  design. 
However,  Table  5-1  should  be  used  as  a  guide  to  the  required  internal  interfaces  in  this 
CSCI. 

3.4  CSCI  Internal  Data  Requirements 

The  TPEM  CSCI  requires  several  internal  arrays  to  be  pre-dimensioned.  Since 
the  software  documentation  standards  and  coding  requirements  do  not  allow  for  dynamic 
dimensioning,  these  arrays  must  be  dimensioned  at  program  compile  time.  The 
implementation  constants  mxrout  and  mxzout  refer  to  the  extreme  dimensions  for  various 
range  and  height  related  arrays  for  all  possible  applications  of  the  TPEM  CSCI  and  will 
be  specified  when  the  TPEM  CSCI  is  compiled. 

Due  to  the  computational  intensity  of  the  TPEM  CSCI,  it  may  not  be  necessary  or 
desirable  to  use  the  extreme  capability  of  the  TPEM  CSCI  for  all  applications.  The 
variables  nrout  and  nzout  refer  to  the  desired  number  of  range  and  height  output  points 
for  any  one  particular  application,  and  will  be  specified  when  the  PEINIT  CSC  is  called. 

For  the  TPEM  CSCI  implementation  within  the  TESS  coverage  and  loss  diagram 
applications,  mxrout  and  nrout  should  be  set  equal,  and  mxzout  and  nzout  should  be  set 
equal.  The  values  chosen  for  mxrout  and  mxzout  must  be  applicable  to  the  coverage 
diagram. 

One  of  the  parameters  returned  to  the  TESS  application  from  the  PEINIT  CSC  is 
terror.  This  is  to  allow  for  greater  flexibility  in  how  input  data  is  handled  within  the 
TESS  application.  Table  3-6  lists  all  possible  errors  that  can  be  returned. 
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Table  3-6  PEINIT  SU  Returned  Error  Definitions 


error 

Definition 

-6 

Last  range  in  terrain  profile  is  less  than  rmax.  Will  only  return  this 
error  if  lerr6  set  to  ‘.true.’ 

-8 

hmax  is  less  than  maximum  height  of  terrain  profile 

-12 

Range  of  last  environment  profile  given  (for  range-dependent  case)  is 
less  than  rmax.  Will  only  return  this  error  if  lerrl2  set  to  ‘.true.’ 

-14 

Last  gradient  in  any  environment  profile  is  negative 

-17 

Range  points  of  terrain  profile  are  not  increasing 

-18 

First  range  value  in  terrain  profile  is  not  0. 

The  logical  variables  lerr6  and  lerrl2,  when  set  to  ‘.false.’,  allow  the  TESS 
application  to  bypass  their  associated  errors  as  these  are  not  critical  to  the  operation  of  the 
TPEM  CSCI. 

The  TPEM  CSCI  provides  propagation  loss  for  moderately  low  angles  and 
heights.  It  does  not  provide  propagation  loss  for  all  heights  and  ranges  desired. 
Propagation  loss  values  will  be  provided  automatically  at  all  heights  from  at  least  90%  of 
the  desired  maximum  range,  rmax,  to  rmax.  At  lesser  ranges,  propagation  loss  values  will 
be  reduced  in  height.  If  greater  coverage  is  desired  (i.e.,  propagation  loss  desired  at  closer 
ranges  and  larger  heights),  a  non-zero  positive  value  for  propang  must  be  specified.  The 
TPEM  CSCI  will  then  provide  propagation  loss  for  all  heights  and  ranges  up  to  the 
maximum  angle  specified  by  propang.  Set  propang  equal  to  zero  to  use  the  TPEM 
CSCI’s  default  angle  and  coverage. 

3.5  Adaptation  Requirements 

3.5.1  Environmental  Radio  Refractivity  Field  Data  Elements 


The  radio-refi-activity  field,  i.e.  the  profiles  of  M-units  versus  height,  should 
consist  of  vertical  piece-wise  linear  profiles  specified  by  couplets  of  height  in  meters 
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above  mean  sea  level  and  modified  refractivity  (M-units)  at  multiple  arbitrary  ranges.  All 
vertical  profiles  must  contain  the  same  number  of  vertical  data  points,  and  be  specified 
such  that  each  numbered  data  point  corresponds  to  like-numbered  points  (i.e.  features)  in 
the  other  profiles.  The  first  numbered  data  point  of  each  profile  must  correspond  to  a 
height  of  zero  mean  sea  level  and  the  last  numbered  data  point  must  correspond  to  a 
height  such  that  the  modified  refractivity  for  all  greater  heights  is  well  represented  by 
extrapolation  using  the  two  highest  profile  points  specified.  Within  each  profile,  each 
numbered  data  point  must  correspond  to  a  height  greater  than  or  equal  to  the  height  of  the 
previous  data  point.  Note  that  this  requirement  allows  for  a  profile  which  contains 
redundant  data  points.  Note  also  that  all  significant  features  of  the  refractivity  profiles 
must  be  specified,  even  if  they  are  above  the  maximum  output  height  specified  for  a 
particular  application  of  TPEM. 

The  TESS  CSCI  application  designer  and  the  TESS  operator  share  responsibility 
for  determining  appropriate  environmental  inputs.  For  example,  a  loss  diagram  may  be 
used  to  consider  a  surface-to-surface  radar  detection  problem.  Since  the  operator  is 
interested  in  surface-to-surface,  he  may  truncate  the  profile  assuming  that  effects  from 
elevated  ducting  conditions  are  negligible.  It  may  be  however,  that  the  elevated  duct  does 
indeed  produce  a  significant  effect.  The  operator  should  insure  therefore,  that  the 
maximum  height  of  the  profile  allows  for  the  inclusion  of  all  significant  refractive 
features. 

This  specification  allows  a  complicated  refractivity  field  to  be  described  with  a 
minimum  of  data  points.  For  example,  a  field  in  which  a  single  trapping  layer  linearly 
descends  with  increasing  range  can  be  described  with  just  two  profiles  containing  only 
four  data  points  each,  frame  (a)  of  Figure  3-4.  In  the  same  manner,  other  evolutions  of 
refractive  layers  may  be  described.  Frames  (b)  and  (c)  of  Figure  3-4  show  two  possible 
scenarios  for  the  development  of  a  trapping  layer.  The  scenario  of  choice  is  the  one 
which  is  consistent  with  the  true  thermodynamical  and  hydrological  layering  of  the 
atmosphere. 
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(a) 


(b)  (c) 


Figure  3-4.  Idealized  M-unit  profiles  (solid)  and  lines  of  interpolation  (dashed) 


The  two  TPEM  CSCI  implementation  constants  mxlvls  and  mxnprof  refer  to  the 
maximum  number  of  height  levels  allowed  within  a  profile  and  the  maximum  number  of 
profiles  allowed  by  the  TPEM  CSCI.  These  two  constants  must  be  specified  when  the 
TPEM  CSCI  is  compiled  and  be  carefully  chosen  to  be  just  large  enough  for  all  calling 
applications  but  small  enough  to  efficiently  conserve  both  computer  memory  and 
execution  time  of  the  TPEM  CSCI.  While  there  is  no  upper  limit  on  mxlvls  imposed  by 
the  TPEM  CSCI,  increasing  the  number  of  environmental  levels  will  increase  the  TPEM 
CSCI  execution  time.  Increasing  the  execution  time  for  any  particular  application  denies 
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valuable  computer  resources  to  other  applications,  and  thus  makes  the  application  less 
likely  to  be  used  by  an  operator. 

Two  external  implementation  data  variables  applicable  to  both  the  TESS  operator 
and  to  the  calling  application  designer  are  rmax,  the  maximum  TPEM  CSCI  output 
range,  and  hmax,  the  maximum  TPEM  CSCI  output  height.  These  two  parameters  are 
required  by  the  TPEM  CSCI  to  determine  the  horizontal  and  vertical  resolution, 
respectively,  for  internal  range  and  height  calculations  based  on  the  current  values  of 
nrout  and  nzout.  Any  value  of  rmax  and  hmax  is  allowed  for  the  convenience  of  the 
TESS  operator  and  the  calling  application  designer.  For  example,  the  TESS  operator  may 
desire  a  coverage  diagram  which  extends  to  a  range  of  500  kilometers  (km).  In  addition 
to  accommodating  the  desires  of  the  operator,  specification  of  such  a  convenient 
maximum  range  eases  the  burden  for  the  application  designer  in  determining  incremental 
tick  marks  for  the  horizontal  axis  of  the  display. 

Provided  the  value  of  the  parameter  lerrl2  is  set  to  ‘.false.’,  if  the  furthest 
environment  profile  range  is  less  than  rmax,  the  TPEM  CSCI  will  automatically  create  an 
environment  profile  at  rmax  equal  to  the  last  profile  specified,  making  the  environment 
homogeneous  from  the  range  of  the  last  profile  specified  to  rmax.  For  example,  a  profile 
is  input  with  an  accompanying  range  of  450  km.  If  the  TESS  operator  chooses  an  rmax 
of  500  km,  the  TPEM  CSCI  will  continue  loss  calculations  to  500  km,  keeping  the 
refractivity  environment  homogeneous  from  450  km  to  500  km. 

If  lerrl2  is  set  to  ‘.true.’  and  the  furthest  environment  profile  range  is  less  than 
rmax,  then  an  error  will  be  returned  in  terror  from  the  PEEMIT  CSC.  This  is  to  allow  the 
TESS  CSCI  application  designer  greater  flexibility  in  how  environment  data  is  handled. 

3.5.2  Terrain  Profile  Data  Element 


The  terrain  profile  should  consist  of  linear  piece-wise  segments  specified  in  terms 
of  range/height  pairs.  The  TPEM  CSCI  implementation  constant  mxter  refers  to  the 
maximum  number  of  height/range  pairs  allowed  within  a  terrain  profile.  This  constant 
must  be  specified  when  the  TPEM  CSCI  is  compiled  and  must  be  carefully  chosen  to  be 
just  large  enough  for  all  calling  applications  but  small  enough  to  efficiently  conserve  both 
computer  memory  and  execution  time  of  the  TPEM  CSCI.  While  there  is  no  upper  limit 
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on  mxter  imposed  by  the  TPEM  CSCI,  increasing  the  number  of  terrain  points  will 
increase  the  TPEM  CSCI  execution  time.  Increasing  the  execution  time  for  any  particular 
application  denies  valuable  computer  resources  to  other  applications,  and  thus  makes  the 
application  less  likely  to  be  used  by  an  operator. 

All  range  values  must  be  increasing,  and  the  first  terrain  height  value  must  be  at 
range  zero.  General  ground  composition  types  can  be  specified  (Table  3-4),  along  with 
corresponding  ranges  over  which  the  ground  type  is  to  be  applied.  If  ground  type  “User 
Defined”  is  specified  (igrndO  =  5),  then  numeric  values  of  relative  permittivity  and 
conductivity  must  be  given.  If  horizontal  antenna  polarization  is  specified,  the  TPEM 
CSCI  will  assume  perfect  conductivity  for  the  entire  terrain  profile  and  will  ignore  any 
information  regarding  groxmd  composition.  If  vertical  antenna  polarization  is  specified, 
then  information  regarding  ground  composition  must  also  be  specified. 

The  maximum  height,  hmax,  must  always  be  greater  than  the  minimum  height, 
hmin.  Also,  a  value  of  hmax  must  be  given  such  that  it  is  larger  than  the  maximum 
elevation  height  along  a  specified  terrain  profile. 

Provided  lerr6  is  set  to  ‘.false.’,  if  the  furthest  range  point  in  the  terrain  profile  is 
less  than  rmax-,  the  TPEM  CSCI  should  automatically  create  a  height/range  pair  as  part 
of  the  terrain  profile  at  rmax  with  elevation  height  equal  to  the  last  height  specified  in  the 
profile,  making  the  terrain  profile  flat  from  the  range  of  the  last  profile  point  specified  to 
rmax.  For  example,  a  terrain  profile  is  input  where  the  last  height/range  pair  is  50  meters 
(m)  in  height  with  an  accompanying  range  of  95  km.  If  the  TESS  operator  chooses  an 
rmax  of  100  km,  the  TPEM  CSCI  should  continue  loss  calculations  to  100  km,  keeping 
the  terrain  profile  flat  from  95  km  to  100  km  with  an  elevation  height  of  50  m. 

If  lerr6  is  set  to  ‘.true.’  and  the  furthest  range  point  is  less  than  rmax,  then  an  error 
should  be  returned  in  error  from  the  PEINIT  SU.  This  is  to  allow  the  TESS  CSCI 
application  designer  greater  flexibility  in  how  terrain  data  is  handled. 
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3.6  Security  and  Privacy  Requirements 


The  security  and  privacy  requirements  are  the  same  as  those  required  by  the  target 
employing  TESS  CSCI. 

3.7  CSCI  Environmental  Requirements 

The  TPEM  CSCI  must  be  able  to  operate  in  the  same  hardware  and  software 
environments  that  the  target  employing  TESS  CSCI  operates. 

3.8  Computer  Resource  Requirements 

Section  3. 1.1. 8  describes  a  requirements  for  a  Sine  Fast-Fourier  Transform 
(SinFFT)  SU.  However,  other  sine  FFT  routines  are  available  in  the  commercial  market, 
and  such  a  sine  FFT  may  already  be  available  within  another  TESS  CSCI.  The  selection 
of  which  FFT  ultimately  used  by  TPEM  CSCI  is  left  to  the  application  designer  as  every 
sine  FFT  will  have  hardware  and/or  software  performance  impacts. 

3.9  Software  Quality  Factors 

The  primary  required  quality  factors  can  be  divided  into  the  three  categories  - 
design,  performance,  and  adaptation. 

The  quality  factors  for  the  design  category  should  include:  correctness, 
maintainability,  and  verifiability.  Correctness  describes  the  extent  to  which  the  TPEM 
CSCI  conforms  to  its  requirements  and  is  to  be  determined  from  the  criteria  - 
completeness,  consistency,  and/or  traceability.  Maintainability  specifies  the  effort 
required  to  locate  and  fix  an  error  in  the  TPEM  CSCI.  Maintainability  is  to  be 
determined  from  the  criteria  -  consistency,  modularity,  self-descriptiveness  (self¬ 
documentation),  and/or  simplicity.  Verifiability  characterizes  the  effort  required  to  test 
the  TPEM  CSCI  to  ensure  that  it  performs  its  intended  function.  Verifiability  is  to  be 
determined  from  the  criteria  -  modularity,  self-descriptiveness,  and/or  simplicity. 

The  quality  factor  for  performance  category  is  reliability,  which  depicts  the 
confidence  that  can  be  placed  in  the  TPEM  CSCI  calculations.  Reliability  is  to  be 
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determined  from  the  criteria  -  accuracy,  anomaly  management,  auditability,  consistency, 
and/or  simplicity. 

The  quality  factors  for  the  adaptation  category  are  portability  and  reusability. 
Portability  determines  how  easy  it  is  to  transport  the  TPEM  CSCI  from  one  hardware 
and/or  software  environment  to  another.  Portability  is  to  be  determined  from  the  criteria  - 
application  independence,  modularity,  and/or  self-descriptiveness.  Reusability  illustrates 
how  easy  it  is  to  convert  the  TPEM  CSCI  (or  parts  of  the  CSCI)  for  use  in  another 
application.  Reusability  is  to  be  determined  from  the  criteria  -  application  independence, 
document  accessibility,  fimctional  scope,  generality,  hardware  independence,  modularity, 
simplicity,  self-descriptiveness,  and/or  system  clarity. 

Section  7.1  of  APPENDIX  A  defines  the  software  quality  criteria. 

Only  the  software  quality  criteria  completeness,  consistency,  and  traceability  can 
be  analyzed.  Their  calculation  is  described  in  Section  7.2  of  APPENDIX  A.  The  other 
criteria  have  to  be  determined  by  either  demonstration,  test,  or  inspection. 

3.10  Design  And  Implementation  Constraints 

3.10.1  Implementation  And  Application  Considerations 


The  calling  TESS  CSCI  application  will  determine  the  employment  of  the  TPEM 
CSCI.  However,  the  intensive  computational  nature  of  the  TPEM  CSCI  must  be  taken 
into  consideration  when  designing  an  efficient  calling  application.  For  this  reason,  the 
TPEM  CSCI  should  be  designed  with  flexibility  for  various  hardware  suites  and 
computer  resource  management  considerations.  As  stated  in  Section  1.1  on  page  1,  this 
TPEM  CSCI  applies  only  to  a  coverage  and  loss  diagram  application.  The  following 
highly  recommended  guidelines  are  provided  to  aid  in  the  design  of  a  coverage  or  loss 
diagram  application  which  will  most  efficiently  employ  the  TPEM  CSCI. 

The  TPEM  CSCI  propagation  loss  calculations  are  independent  of  any  target  or 
receiver  considerations,  therefore,  for  any  EM  emitter,  one  execution  of  the  TPEM  CSCI 
may  be  used  to  create  both  a  coverage  diagram  and  a  loss  diagram.  Since  both  execution 
time  and  computer  memory  allocation  should  be  a  consideration  when  employing  this 
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model,  it  is  most  efficient  and  appropriate  to  execute  the  TPEM  CSCI  for  a  particular  EM 
system/environmental/terrain  combination  before  executing  any  application.  The  output 
of  the  TPEM  CSCI  would  be  stored  in  a  file  which  would  be  accessed  by  multiple 
applications. 

For  example,  the  TESS  operator  may  desire  a  coverage  diagram  for  one  particular 
radar  system.  At  the  beginning  of  the  coverage  diagram  application,  a  check  would  be 
made  for  the  existence  of  a  previously  created  TPEM  CSCI  output  file  appropriate  for  the 
EM  system,  environmental,  and  terrain  conditions.  If  such  a  file  exists,  the  propagation 
loss  values  would  be  read  from  the  file  and  used  to  create  the  coverage  diagram.  If  the 
file  does  not  exist,  the  TPEM  CSCI  would  be  executed  to  create  one.  As  the  TPEM  CSCI 
is  executing,  its  output  could  be  routed  simultaneously  to  a  graphics  display  device  and  a 
file.  This  file  could  then  be  used  in  the  loss  diagram  application  should  the  operator  also 
choose  it.  Two  distinct  applications  therefore,  are  achieved  with  only  one  execution  of 
the  TPEM  CSCI.  Additionally,  should  the  operator  desire  an  individual  coverage 
diagram  for  each  of  multiple  targets,  or  a  single  coverage  diagram  illustrating  radar 
detection  of  a  low-flying  missile  superimposed  upon  a  coverage  diagram  illustrating  his 
own  radar's  vulnerability  as  defined  by  the  missile's  ESM  receiver,  only  a  single 
execution  of  the  TPEM  CSCI  would  be  required,  thereby  saving  valuable  computer 
resources. 

3.10.2  Programming  Language  And  Source  Implementation 


3.10.2.1  Programming  Language 

The  ANSI  Fortran  90  program  language  standard  must  be  used  in  the  development 
of  the  TPEM  CSCI  (Ref  h).  This  standard  consists  of  the  specifications  of  the  language 
Fortran.  With  certain  limitations  the  syntax  and  semantics  of  the  old  International 
Standard  commonly  known  as  “FORTRAN  77”  are  contained  entirely  within  this  new 
International  Standard.  Therefore,  any  standard-conforming  FORTRAN  77  program  is 
standard  conforming  under  the  Fortran  90  Standard.  Note  that  the  name  of  this  language, 
Fortran,  differs  from  that  in  FORTRAN  77  in  that  only  the  first  letter  is  capitalized.  The 
Overview  section  of  the  International  Standard  describes  the  major  additions  to 
FORTRAN  77  in  this  International  Standard.  Section  1 .3  of  the  International  Standard 
specifies  the  bounds  of  the  Fortran  language  by  identifying  both  those  items  included  and 
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those  items  excluded.  Section  1.4.1  describes  the  FORTRAN  77  compatibility  of  the 
International  Standard  with  emphasis  on  four  FORTRAN  77  features  having  different 
interpolations  in  the  new  International  Standard.  The  International  Standard  provides 
facilities  that  encourage  the  design  and  the  use  of  modular  and  reusable  software. 

Section  8.2  of  the  International  Standard  describes  nine  obsolescent  features  of 
FORTRAN  77  that  are  redundant  and  for  which  better  methods  are  available  in 
FORTRAN  77  itself.  These  nine  obsolescent  features  should  not  be  used,  These 
obsolescent  features  are: 

(a)  Arithmetic  IF  -  use  the  IF  statement. 

(b)  Real  and  double  precision  DO  control  variables  and  DO  loop  control  expressions 
-  use  integer. 

(c)  Shared  DO  termination  and  termination  on  a  statement  other  than  END  DO  or 
CONTINUE  -  use  an  END  DO  or  a  CONTINUE  statement  for  each  DO 
statement. 

(d)  Branching  to  an  END  IF  statement  from  outside  its  IF  block  -  branch  to  the 
statement  following  the  END  IF. 

(e)  Alternate  return. 

(f)  PAUSE  statement. 

(g)  ASSIGN  and  assigned  GO  TO  statements. 

(h)  Assigned  FORMAT  specifiers. 

(i)  cH  (nH)  edit  descriptor. 

Remedies  for  the  last  five  obsolescent  features  are  described  in  section  8.2  of  the 
International  standard. 
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3.10.2.2  Source  Implementation 


Ref.  (f)  by  the  Naval  Oceanographic  Office  establishes  a  uniform  standard  for  all 
software  submitted  by  all  contributors  to  them.  It  is  recommended  that  the  coding 
requirements  set  forth  in  Section  4  of  that  document  be  followed.  Among  these 
recommendations  are: 

(a)  Special  non-ANSI  features  shall  be  avoided.  Non-ANSI  practices  that  are 
necessary  must  be  documented  in  the  code  itself 

(b)  Maximum  use  should  be  made  of  existing  commercially  available  FORTRAN 
callable  libraries. 

(c)  Programs  shall  be  designed  and  coding  using  only  five  basic  control  structures  - 
sequence  of  operations  (assignment,  add, ...),  IF  THEN  ELSE,  DO  WHILE,  DO 
UNTIL,  and  CASE. 

(d)  Procedures  or  routines  that  make  up  a  module  shall  not  exceed  an  average  of  100 
executable  statements  per  procedure  or  routine  and  shall  not  exceed  a  maximum 
of  200  executable  statements  in  any  procedure  or  routine. 

(e)  Branching  statements  (GO  TOs)  shall  only  pass  control  to  a  statement  that  is  in 
the  same  procedure  or  routine.  Each  GO  TO  must  pass  control  only  forward  of 
its  point  of  occurrence. 

(f)  Naming  conventions  shall  be  uniform  throughout  the  software.  Program, 
subprogram,  module,  procedure,  and  data  names  shall  be  uniquely  chosen  to 
identify  the  applicable  function  performed.  The  naming  convention  for 
COMMON  shall  be  consistent  across  the  entire  program. 

(g)  Constants  shall  be  defined  not  calculated  (e.g.,  do  no  use  HALF  =  1/2,  use  HALF 
=  0.5) 

(h)  Mixed-mode  numerical  operations  should  be  avoided  whenever  possible.  When 
determined  to  be  necessary,  the  use  shall  be  explicit  {FLOAT,  FIX,  or  in 
assignment  statement)  and  completely  described  in  comments. 
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(i)  Each  component  of  the  software  shall  have  a  prologue  containing  the  name  of  the 
program,  subprogram,  or  function  and  any  version  number;  purpose;  inputs; 
outputs;  list  of  routines  that  call  this  routine;  complete  list  of  routines  called 
including  intrinsic  functions  such  as  ABS  and  FLOAT,  glossary;  and  method. 

(j)  To  facilitate  program  comprehension,  comment  statements  shall  be  used 
throughout  the  program  code. 

(k)  The  use  of  the  EQUIVALENCE  statement  shall  be  restricted  to  those  where  it 
either  improves  the  readability  of  the  code  or  the  efficiency  of  the  program.  If  the 
EQUIVALENCE  statement  is  used,  it  must  be  fully  documented  in  the  prologue 
and  inline  comment  statements. 

(l)  No  machine-dependent  techniques  are  allowed,  imless  there  is  no  other  way  of 
doing  the  job. 

(m)  Initialize  every  variable  before  use. 

(n)  Do  not  depend  on  the  values  of  “local”  variables  computed  on  a  previous  call  to  a 
routine. 

(o)  Program  structural  indentation  shall  be  used  to  improve  readability  and  clarity. 

3.11  Personnel-Related  Requirements 

Not  applicable. 

3.12  Training  Related  Requirements 

The  employing  target  software  personnel  implementing  this  CSCI  into  the  TESS 
CSCI  will  require  training  to  become  familiar  with  the  TPEM.  This  requirement  should 
be  met  by  this  document  and  the  companion  Software  Design  Description  (SDD)  and 
Software  Test  Description  (STD)  documents. 
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3,13  Other  Requirements 


None. 

3.14  Precedence  And  Criticality  Of  Requirements 

The  requirements  presented  in  Sections  3.1  through  3.5  and  Sections  3.8  through 
3.10  have  precedence  over  Sections  3.6,  3.7,  3.11,  3.12,  and  3.13  and  should  be  given 
equal  weight. 
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4.  QUALIFICATION  PROVISIONS 


N/A 

5.  REQUIREMENTS  TRACEABILITY 
5.1  System  Traceability 

This  section  provides  traceability  of  requirements  between  the  TPEM  CSCI  and 
the  TESS  CSCI. 

(a)  The  TPEM  CSCI  environmental  data  requirements  should  be  obtained  from  the 
Tactical  Environmental  Data  System  database  (TEDS)  within  the  TESS  CSCI. 
The  TPEM  CSCI  terrain  data  element  requirements  should  be  obtained  from  the 
Digital  Terrain  Elevation  Database  (DTED)  within  the  TESS  CSCI.  The 
radar/communication  system  data  element  requirements  should  be  obtained  from 
the  EM  system  database  within  the  TESS  CSCI. 

(b)  The  TESS  CSCI  requirement  of  propagation  loss  vs.  range  and  height  should  be 
obtained  from  the  TPEM  CSCI. 


5.2  Documentation  Traceability 

This  section  provides  the  following  types  of  traceability  between  the  Software 
Requirements  Specification  (SRS),  the  Software  Design  Description  (SDD),  and  the 
Software  Test  Description  (STD): 

(a)  Traceability  between  levels  of  requirements; 

(b)  Traceability  between  the  software  requirements  and  software  design; 

(c)  Traceability  between  the  software  requirements  and  qualification  test  information 
obtained  from  the  software  testing. 
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This  traceability  is  presented  in  three  tables.  The  first  table,  Table  5-1,  presents  the 
traceability  between  levels  of  SRS  requirements.  The  second  table  presents  the 
traceability  between  the  software  requirements  and  software  design.  The  third  table 
presents  the  traceability  between  the  SRS  requirements  and  the  software  test  information. 
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Table  5-1  Requirements  Traceability  Matrix  for  the  SRS 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement 
Name 

SRS  Paragraph 
Number 

SRS  Requirement 
Name 

SRS  Paragraph 
Number 

CSCI  Capability 
Requirements 

3.1 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Refractivity  Initialization 
(REFINIT)  SU 

3.1. 1.2 

Refractivity  Initialization 
(REFINIT)  SU 

3.1. 1.2 

Remove  Duplicate 
Refractivity  Levels 
(REMDUP)  SU 

3.1.2.5 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Trace  for  Minimum  Angle 
(TRACEA)  SU 

3. 1.1.3 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Dielectric  Initialization 
(DIEINIT)  SU 

3.1. 1.4 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Get  FTT  Size 
(GETFFTSZ)  SU 

3.1. 1.5 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Starter  Field  Initialization 
(XYINIT)  SU 

3.1. 1.6 

Starter  Field  Initialization 
(XYDSflT)  SU 

3.1. 1.6 

Antenna  Pattern 
(ANTPAT)  SU 

3.1. 1.1 

Starter  Field  Initialization 
(XYINIT)  SU 

3.1. 1.6 

GETALN  SU 

3. 1.2.2 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Fast-Fourier  Transform 
(FFT)  SU 

3.1. 1.7 

Fast-Fourier  Transform 
(FFT)  SU 

3. 1.1.7 

Sine  Fast-Fourier 

Transform  (SINFFT)  SU 

3.1. 1.8 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Trace  Launch  Angle 
(TRACEH)  SU 

3.1. 1.9 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Free-Space  Propagator 

Phase  Term  (PHASEl)  SU 

3.1.1.10 
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Table  5-1  Requirements  Traceability  Matrix  for  the  SRS  (cont’d) 


Software  Requirements  Specification 


SRS  Requirement 
Name 

SRS  Paragraph 
Number 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

3.1.1 

CSCI  Capability 
Requirements 

3.1 

Parabolic  Equation  Step 
(PESTEP)  CSC 

3.1.2 

3.1.2 

Parabolic  Equation  Step 
(PESTEP)  CSC 

3.1.2 

Free  Space  Range  Step 
(FRSTP)  CSC 

3. 1.2.3 

Parabolic  Equation  Step 
(PESTEP)  CSC 

3.1.2 

Reffactivity  Interpolation 
(REFINTER)  SU 

3. 1.2.4 

Reffactivity  Interpolation 
(REFINTER)  SU 

3. 1.2.4 

Reffactivity  Interpolation 
(REFINTER)  SU 

3. 1.2.4 

3.1.2 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

3.1.2.6 

Parabolic  Equation  Step 
(PESTEP)  CSC 

3.1.2 

Parabolic  Equation  Step 
(PESTEP)  CSC 

3.1.2 

Software  Requirements  Specification 

SRS  Requirement 
Name 

SRS  Paragraph 
Number 

Environmental  Propagator 
Phase  Term  (PHASE2)  SU 

3.1.1.11 

Profile  Reference 
(PROFREF)  SU 

3.1.1.12 

Interpolate  Profile 
(INTPROF)  SU 

3.1.1.13 

Parabolic  Equation  Step 
(PESTEP)  SU 

3.1.2 

DOSHIFT  SU 

3. 1.2.1 

GETALN  SU 

3. 1.2.2 

Free  Space  Range  Step 
(FRSTP)  SU 

3. 1.2.3 

Fast-Fourier  Transform 
(FFT)  SU 

3. 1.1.7 

Reffactivity  Interpolation 
(REFINTER)  SU 

3. 1.2.4 

Profile  Reference 
(PROFREF)  SU 

3.1.1.12 

Interpolate  Profile 
(INTPROF)  SU 

3.1.1.13 

Remove  Duplicate 
Reffactivity  Levels 
(REMDUP)  SU 

3. 1.2.5 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

3. 1.2.6 

Get  Propagation  Factor 
(GETFAC)  SU 

3. 1.2.7 

Fast-Fourier  Transform 
(FFT)  SU 

3. 1.1.7 

Environmental  Propagator 
Phase  Term  (PHASE2)  SU 

3.1.1.11 
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Table  5-1  Requirements  Traceability  Matrix  for  the  SRS  (cont’d) 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement 
Name 

SRS  Paragraph 
Number 

SRS  Requirement 
Name 

SRS  Paragraph 
Number 

CSCI  Capability 
Requirements 

3.1 

CSCI  External  Interface 
Requirements 

3.2 

CSCI  Capability 
Requirements 

3.1 

CSCI  Internal  Interface 
Requirements 

3.3 

CSCI  Capability 
Requirements 

3.1 

CSCI  Internal  Data 
Requirements 

3.4 

CSCI  Capability 
Requirements 

3.1 

Adaptation  Requirements 

3.5 

CSCI  Capability 
Requirements 

3.1 

Security  and  Privacy 
Requirements 

3.6 

CSCI  Capability 
Requirements 

3.1 

CSCI  Environmental 
Requirements 

3.7 

CSCI  Capability 
Requirements 

3.1 

Computer  Resource 
Requirements 

3.8 

CSCI  Capability 
Requirements 

3.1 

Software  Quality  Factors 

3.9 

CSCI  Capability 
Requirements 

3.1 

Design  And 

Implementation 

Constraints 

3.10 

Design  And 

Implementation 

Constraints 

3.10 

Implementation  and 
Application  Considerations 

3.10.1 

Design  And 

Implementation 

Constraints 

3.10 

Programming  Language 

And  Source  Code 
Implementation 

3.10.2 

Programming  Language 

And  Source  Code 
Implementation 

3.10.2 

Programming  Language 

3.10.2.1 

Programming  Language 

And  Source  Code 
Implementation 

3.10.2 

Source  Implementation 

3.10.2.2 

CSCI  Capability 
Requirements 

3.1 

Personnel-Related 

Requirements 

3.11 
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Table  5-1  Requirements  Traceability  Matrix  for  the  SRS  (cont’d) 


Software  Requirements  Speciflcation 

Software  Requirements  Specification 

SRS  Requirement 
Name 

SRS  Paragraph 
Number 

SRS  Requirement 

Name 

SRS  Paragraph 
Number 

CSCI  Capability 
Requirements 

3.1 

Training  Related 
Requirements 

3.12 

CSCI  Capability 
Requirements 

3.1 

Other  Requirements 

3.13 

CSCI  Capability 
Requirements 

3.1 

Precedence  and  Criticality 
of  Requirements 

3.14 

6.  NOTES 


Table  6-1  is  a  glossary  of  acronyms  and  abbreviations  used  within  this  document. 
Table  6-2  is  a  glossary  of  Fortran  terms  used  within  this  document. 


Table  6-1  Acronyms  and  Abbreviations 


Term 

Deflnition 

ANSI 

American  National  Standards  Institute 

cB 

centibel 

CSC 

Computer  Software  Component 

CSCI 

Computer  Software  Configuration  Item 

dB 

decibel 

EM 

Electromagnetic 

FFT 

Fast-Fourier  Transform 

Fortran 

Formula  Translation 

FORTRAN 

Formula  Translation 

km 

kilometers 

m 

meters 

M 

modified  refractivity  units 

MHz 

megahertz 

N/A 

not  applicable 

PE 

Parabolic  Equation 

p-space 

phase  space 

rad 

radians 

SDD 

Software  Design  Description 

SRS 

Software  Requirements  Specification 

STD 

Software  Test  Description 

SU 

Software  Unit 

TESS 

Tactical  Environmental  Support  System 

TPEM 

Terrain  Parabolic  Equation  Model 

z-space 

distance  space 
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Table  6-2  Fortran  Terms 


Term 

Action  or  Definitions 

ABS 

Absolute  value  function 

Arithmetic  IF 

Transfers  control  to  one  of  three  statement  labels,  depending  on 
the  value  of  expression 

ASSIGN 

Assigns  the  value  of  a  format  or  statement  label  to  an  integer 

variable 

CASE 

Marks  the  beginning  of  a  block  of  statements  executed  if  an  item 
in  a  list  of  expressions  matches  the  test  expressions 

COMMON 

Allows  two  or  more  program  imits  to  directly  share  variables 
without  having  to  pass  them  as  arguments 

CONTINUE 

Does  not  have  any  effect 

DO 

Repeatedly  executes  the  statements  following  the  DO  statement 
through  the  statement  which  marks  the  end  of  the  loop 

DO  WHILE 

Executes  a  block  of  statements  repeatedly  while  a  logical 

condition  remains  true 

END  DO 

Terminates  a  DO  or  DO  WHILE  loop 

END  IF 

Terminates  a  block  of  IF  statements 

EQUIVALENCE 

Causes  two  or  more  variables  or  arrays  to  occupy  the  same 
memory  location 

FIX 

Data  type  conversion  function 

FLOAT 

Data  type  conversion  function 

FORMAT 

Sets  the  format  in  which  data  is  written  to  or  read  from  a  file 

GO  TO 

Transfers  execution  to  the  statement  label  assigned  to  variable 

IF 

If  expression  is  true,  statement  is  executed;  if  expression  is  false, 
program  execution  continues  with  the  next  executable  statement 

IF  THEN  ELSE 

If  expression  is  true,  statements  in  the  IF  block  are  executed;  if 
expression  is  false,  control  is  transferred  to  the  next  ELSE, 

ELSE  IF,  or  END  IF  statement  at  the  same  IF  level 

PAUSE 

Temporarily  suspends  program  execution  and  allows  you  to 
execute  operating  system  commands  during  the  suspension 
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7.  APPENDIX  A 


7.1  Definitions  of  Quality  Factor  Criteria 

The  criteria  for  judging  the  quality  factors  of  Section  3.9  have  the  following 
definitions: 

(a)  Accuracy.  The  precision  of  computations  and  control; 

(b)  Anomaly  management.  The  degree  to  which  the  program  detects  failure  in  order 
to  maintain  consistency; 

(c)  Application  independence.  The  degree  to  which  the  program  is  independent  of 
nonstandard  programming  language  features,  operating  system  characteristics,  and 
other  environmental  constraints; 

(d)  Auditability.  The  ease  with  which  conformance  to  standards  can  be  checked; 

(e)  Completeness.  The  degree  to  which  full  implementation  of  required  function  has 
been  achieved; 

(f)  Consistency.  The  use  of  uniform  design  and  documentation  techniques 
throughout  the  software  development  project; 

(g)  Document  accessibility.  The  availability  of  documents  describing  the  program 
components. 

(h)  Functional  scope.  The  generality  of  the  feature  set  and  capabilities  of  the 
program; 

(i)  Generality.  The  breadth  of  potential  application  of  program  components; 

(j)  Hardware  independence.  The  degree  to  which  the  software  is  decoupled  from  the 
hardware  on  which  it  operates; 

(k)  Modularity.  The  functional  independence  of  program  components; 
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(l)  Self-  descriptiveness.  The  degree  to  which  the  source  code  provides  meaningful 
documentation; 

(m)  Simplicity.  The  degree  to  which  a  program  can  be  understood  without  difficulty; 

(n)  System  clarity.  The  ease  for  which  the  feature  set  and  capabilities  of  the  system 
can  be  determined. 

(o)  Traceability.  The  ability  to  trace  a  design  representation  or  actual  program 
component  back  to  requirements. 

7.2  Software  Quality  Metrics 
7.2.1  Completeness  Criteria 

The  criteria  completeness  can  be  determined  from  the  metric: 

(a)  no  ambiguous  references  (input,  function,  output); 

(b)  all  data  references  defined; 

(c)  all  referenced  functions  defined; 

(d)  all  defined  functions  used; 

(e)  all  conditions  and  processing  defined  for  each  decision  point; 

(f)  all  defined  and  referenced  calling  sequences  parameters  agree; 

(g)  all  problem  reports  resolved; 

(h)  design  agrees  with  requirements; 

(i)  code  agrees  with  design; 
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(j)  (score  0  for  any  untrue  statement;  1  otherwise);  and 


(k)  metric  value  =  SUM  (scores)/9. 

7.2.2  Consistency  Criteria 

The  criteria  consistency  can  be  determined  from  the  metric  : 
violating  the  design  standard  divided  by  the  number  of  modules. 

7.2.3  Traceability  Criteria 

The  criteria  traceability  can  be  determined  from  the  metric  : 
requirements  traced  divided  by  the  total  number  of  requirements. 


number  of  modules 


number  of  itemized 


46 


SOFTWARE  DESIGN  DESCRIPTION 
FOR  THE 

TERRAIN  PARABOLIC  EQUATION  MODEL  CSCI 
May  1,  1997 
Prepared  for: 

Space  and  Naval  Warfare  Systems  Command  (PMW-185) 
Washington,  DC 

and 

Naval  Sea  Systems  Command  (PEO  USW  ASTO-E/F) 
Washington,  DC 

Prepared  by; 

Naval  Command,  Control  and  Ocean  Surveillance  Center 
Research,  Development,  Test  and  Evaluation  Division 
Tropospheric  Branch  (Code  D883) 

San  Diego,  CA  92152-738 


TABLE  OF  CONTENTS 


1.  SCOPE  1 

1.1  Identification  1 

1.2  Document  Overview  1 

2.  REFERENCED  DOCUMENTS  2 

3.  CSCI-WIDE  DESIGN  DECISIONS  4 

4.  CSCI  ARCHITECTURE  DESIGN  5 

4.1  CSCI  Components  5 

4.2  Concept  of  Execution  7 

4.3  Interface  Design  9 

4.3. 1  Interface  Identification  and  Diagrams  9 

4.3.2  External  Interface  9 

4.3.3  Internal  Interface  15 

4.3.4  Internal  Data  18 

5.  CSCI  DETAILED  DESIGN  20 

5.1  Parabolic  Equation  Initialization  (PEINIT)  CSC  20 

5.1.1  Antenna  Pattern  (ANTPAT)  SU  32 

5.1.2  Refractivity  Initialization  (REFINIT)  SU  35 

5.1.3  Trace  for  Minimum  Angle  (TRACEA)  SU  38 

5.1.4  Dielectric  Initialization  (DIEINIT)  SU  45 

5. 1.5  Get  EFT  Size  (GETFFTSZ)  SU  49 

5.1.6  Starter  Field  Initialization  (XYINTT)  SU  51 

5.1.7  Fast-Fourier  Transform  (EFT)  SU  54 

5.1.8  Sine  Fast-Fourier  Transform  (SINFFT)  SU  56 

5.1.9  Trace  Launch  Angle  (TRACER)  SU  57 

5.1.10  Free-Space  Propagator  Phase  Term  (PHASEl)  SU  61 

5.1.11  Environmental  Propagator  Phase  Term  (PHASE2)  SU  63 

5.1.12  Profile  Reference  (PROFREF)  SU  65 

5.1.13  Interpolate  Profile  (INTPROF)  SU  68 

5.2  Parabolic  Equation  Step  (PESTEP)  CSC  70 

5.2.1  DOSHIFT  SU  78 

5.2.2  GETALN  SU  80 

5.2.3  Free  Space  Range  Step  (FRSTP)  SU  83 

5.2.4  Refractivity  Interpolation  (REFINTER)  SU  84 

5.2.5  Remove  Duplicate  Refractivity  Levels  (REMDUP)  SU  87 

5.2.6  Calculate  Propagation  Loss  (CALCLOS)  SU  88 


1 


5.2.7  Get  Propagation  Factor  (GETPFAC)  SU  93 

6.  REQUIREMENTS  TRACEABILITY  95 

7.  NOTES  98 

7.1  TPEM  CSCI  Implementation  And  Application  Considerations  98 

7.2  Environmental  Radio  Refractivity  Field  Data  Elements  99 

7.3  Terrain  Profile  Data  Element  101 

7.4  Acronym  and  Abbreviations  102 

7.5  SDD  Variable  Name,  FORTRAN  Variable  Name  Cross  Reference  105 

8.  APPENDIX  A:  FORTRAN  SOURCE  CODE  FOR  TPEM  CSCI  120 

8.1  Subroutine  PEINIT  123 

8.1.1  Subroutine  ANTPAT  134 

8.1.2  Subroutine  REFINIT  136 

8.1.3  Subroutine  TRACEA  139 

8.1.4  Subroutine  DIEINTT  143 

8.1.5  Subroutine  GETFFTSZ  147 

8.1.6  Subroutine  XYINIT  149 

8.1.7  Subroutine  FFT  151 

8.1.8  Subroutine  SINFFT  152 

8.1.9  Subroutine  TRACER  158 

8. 1. 10  Subroutine  PHASEl  16 1 

8. 1. 1 1  Subroutine  PHASE2  163 

8.1.12  Subroutine  PROFREF  165 

8.1.13  Subroutine  INTPROF  167 

8.2  Subroutine  PESTEP  168 

8.2. 1  Subroutine  DOSHIFT  172 

8.2.2  Subroutine  GETALN  174 

8.2.3  Subroutine  FRSTP  176 

8.2.4  Subroutine  REFINTER  177 

8.2.5  Subroutine  REMDUP  179 

8.2.6  Subroutine  CALCLOS  180 

8.2.7  Function  GETPFAC  184 

8.3  INCLUDE  Interface  Source  Code  186 

8.3.1  FFTSIZ.INC  186 

8.3.2  TPEM.1NC  186 


LIST  OF  FIGURES 


FIGURE  4-1  PROGRAM  FLOW  OF  THE  TPEM  CSCI  8 

FIGURE  5-1  PROGRAM  FLOWOF  THE  PEINTT  CSC  21 

FIGURE  5-2  PROGRAM  FLOW  OF  THE  PESTEP  CSC  70 

FIGURE  7-1  IDEALIZED  M-UNIT  PROFILES  (SOLID)  AND  LINES  OF  INTERPOLATION 
(DASHED)  100 

LIST  OF  TABLES 

TABLE  4-1  TPEM  CSCI  ENVIRONMENTAL  DATA  ELEMENT  REQUIREMENTS  10 

TABLE  4-2  TPEM  CSCI  EXTERNAL  EM  SYSTEM  DATA  ELEMENT  REQUIREMENTS  11 
TABLE  4-3  TPEM  CSCI  EXTERNAL  IMPLEMENTATION  CONSTANTS  12 

TABLE  4-4  TPEM  CSCI  EXTERNAL  TERRAIN  DATA  ELEMENT  REQUIREMENTS  14 

TABLE  4-5  TPEM  CSCI  OUTPUT  DATA  ELEMENT  REQUIREMENTS  15 

TABLE  4-6  TPEM  INTERNAL  INTERFACE  DESIGN  16 

TABLE  4-7  PEINIT  SU  RETURNED  ERROR  DEFINITIONS  19 

TABLE  5-1  PEINTT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  30 

TABLE  5-2  PEINIT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  3 1 

TABLE  5-3  ANTP AT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  34 

TABLE  5-4  ANTP  AT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  34 

TABLE  5-5  REFINIT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  37 

TABLE  5-6  REFINIT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  37 

TABLE  5-7  TRACEA  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  44 

TABLE  5-8  TRACEA  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  44 

TABLE  5-9  DIEINIT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  48 

TABLE  5-10  DIEINIT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  48 

TABLE  5-11  GETFFTSZSU  INPUT  DATA  ELEMENT  REQUIREMENTS  50 

TABLE  5-12  GETFFTSZ  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  50 

TABLE  5-13  XYINIT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  53 

TABLE  5-14  XYINIT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  53 

TABLE  5-15  FFT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  55 

TABLE  5-16  FFT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  55 

TABLE  5-17  SINFFT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  56 

TABLE  5-18  SINFFT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  56 

TABLE  5-19  TRACEH  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  60 

TABLE  5-20  TRACEH  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  60 

TABLE  5-2 1  PHASE  1  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  62 

TABLE  5-22  PHASEl  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  62 

TABLE  5-23  PHASE2  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  64 

TABLE  5-24  PHASE2  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  64 

TABLE  5-25  PROFREF  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  67 

TABLE  5-26  PROFREF  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  67 

TABLE  5-27  INTPROF  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  69 

TABLE  5-28  INTPROF  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  69 

TABLE  5-29  PESTEP  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  75 

TABLE  5-30  PESTEP  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  77 

TABLE  5-31  DOSHIFT  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  79 

TABLE  5-32  DOSHIFT  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  79 

TABLE  5-33  GETALN  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  82 

TABLE  5-34  GETALN  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  82 

TABLE  5-35  FRSTP  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  83 


iii 


TABLE  5-36  FRSTP  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  83 

TABLE  5-37  REFINTER  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  86 

TABLE  5-38  REFINTER  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  86 

TABLE  5-39  REMDUP  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  87 

TABLE  5-40  REMDUP  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  87 

TABLE  5-41  CALCLOS  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  92 

TABLE  5-42  CALCLOS  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  92 

TABLE  5-43  GETPFAC  SU  INPUT  DATA  ELEMENT  REQUIREMENTS  94 

TABLE  5-44  GETPFAC  SU  OUTPUT  DATA  ELEMENT  REQUIREMENTS  94 

TABLE  6-1  TRACEABILITY  MATRIX  BETWEEN  THE  SRS  AND  THE  SDD  95 

TABLE  7-1  ACRONYMS  AND  ABBREVIATIONS  103 

TABLE  7-2  VARIABLE  NAME  CROSS  REFERENCE  105 


IV 


1.  SCOPE 


1.1  Identification 

Terrain  Parabolic  Equation  Model  (TPEM)  computer  software  configuration  item 
(CSCI).  The  purpose  of  the  TPEM  CSCI  is  to  calculate  range-dependent  electromagnetic 
(EM)  system  propagation  loss  within  a  heterogeneous  atmospheric  medium  over  variable 
terrain,  where  the  radio-frequency  index  of  refraction  is  allowed  to  vary  both  vertically 
and  horizontally,  also  accounting  for  terrain  effects  along  the  path  of  propagation. 
Numerous  Tactical  Environmental  Support  System  (TESS)  applications  require  EM- 
system  propagation  loss  values.  The  reqijired  TPEM  model  described  by  this  document 
may  be  applied  to  two  such  TESS  applications,  one  which  displays  propagation  loss  on  a 
range  versus  height  scale  (commonly  referred  to  as  a  coverage  diagram)  and  one  which 
displays  propagation  loss  on  a  propagation  loss  versus  range/height  scale  (commonly 
referred  to  as  a  loss  diagram). 

1.2  Document  Overview 

This  document  describes  the  design  of  the  TPEM  CSCI.  An  overview  of  the  input 
software  requirements  is  presented  together  with  an  overview  of  the  CSCI  design 
architecture  and  a  detailed  design  description  of  each  component  of  the  CSCI. 
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3.  CSCI-WIDE  DESIGN  DECISIONS 


The  designed  TPEM  CSCI  propagation  model  is  a  pure  split-step  parabolic 
equation  (PE)  model  that  allows  for  range-dependent  reffactivity  and  variable  terrain 
along  the  path  of  propagation.  It  calculates  propagation  loss  both  in  range  and  altitude. 

The  TPEM  CSCI  provides  propagation  loss  for  moderately  low  angles  and 
heights.  It  is  not  required  to  provide  propagation  loss  for  all  heights  and  ranges  desired. 
Propagation  loss  values  can  be  provided  at  all  heights  from  at  least  90%  of  the  desired 
maximum  range  to  the  maximum  range.  The  TPEM  CSCI  allows  for  horizontal  and 
vertical  antenna  polarizations,  finite  conductivity  based  on  user-specified  ground 
composition  and  dielectric  parameters,  and  the  complete  range  of  EM  system  parameters 
and  most  antenna  patterns  required  by  TESS. 

The  TPEM  CSCI  is  divided  into  2  main  computer  software  components  (CSC) 
and  20  additional  software  units  (SU).  The  purpose  of  the  first  CSC,  the  PEINIT  CSC,  is 
to  interface  with  various  SUs  for  the  complete  initialization  of  the  TPEM  CSCI.  The 
purpose  of  the  second  CSC,  the  PESTEP  CSC,  is  to  advance  the  entire  TPEM  CSCI 
algorithm  one  output  range  step,  referencing  various  SUs  to  calculate  the  propagation  loss 
at  the  current  output  range. 
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4.  CSCI  ARCHITECTURE  DESIGN 


4.1  CSCI  Components 

The  TPEM  CSCI  is  accessed  by  a  subroutine  call  which  provides,  as  global  data 
elements,  the  values  specified  in  Tables  4-1  through  4-4. 

The  TPEM  CSCI  is  divided  into  2  computer  software  components  (CSC)  and  20 
software  units  (SU).  The  two  CSCs  are  the  PEINIT  CSC  and  the  PESTEP  CSC.  The 
source  code  for  the  TPEM  CSCI  is  listed  in  APPENDIX  A.  The  name  and  purpose  for 
each  CSC  and  SU  follows. 

Parabolic  Equation  Initialization  (PEINIT)  CSC  -  to  interface  with  various  SUs  for 
the  complete  initialization  of  the  TPEM  CSCI.  The  PEINIT  CSC  component  SUs 
include: 

(1)  Antenna  Pattern  (ANTPAT)  SU  -  to  calculate  a  normalized  antenna  gain  (antenna 
pattern  factor)  for  a  specified  antenna  elevation  angle. 

(2)  Refractivity  Initialization  (REFINIT)  SU  -  to  check  for  valid  environmental  profile 
inputs  and  to  initialize  the  refi'activity  arrays.  This  SU  references  the  REMDUP  SU  of  the 
PESTEP  CSC. 

(3)  Trace  for  Minimum  Angle  (TRACE A)  SU  -  to  perform  a  ray  trace  to  determine  the 
minimum  angle  required  (based  on  the  reflected  ray)  in  obtaining  a  PE  solution  for  all 
heights  up  to  the  maximum  output  height  (or  the  largest  height  allowed  from  the 
maximum  transform  size)  and  for  all  ranges  beyond  90%  of  the  maximum  output  range. 

(4)  Dielectric  Initialization  (DIEINIT)  SU  -  to  determine  the  conductivity  and  relative 
permittivity  as  a  function  of  frequency  in  MHz  based  on  general  ground  composition 
types. 

(5)  Get  FFT  Size  (GETFFTSZ)  SU  -  to  determine  the  required  transform  size  based  on 
the  maximum  PE  propagation  angle  and  the  specified  maximum  output  height. 
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(6)  Starter  Field  Initialization  (XYINIT)  SU  -  to  calculate  the  complex  PE  solution  at 
range  zero.  This  SU  references  the  GETALN  SU  of  the  PESTEP  CSC. 

(7)  Fast-Fourier  Transform  (FFT)  SU  -  to  separate  the  real  and  imaginary  components 
of  the  complex  PE  field  into  two  real  arrays  and  then  to  reference  the  SINFFT  SU. 

(8)  Sine  Fast-Fourier  Transform  (SINFFT)  SU  -  to  transform  each  portion  of  the  PE 
solution. 

(9)  Trace  Launch  Angle  (TRACEH)  SU  -  to  perform  a  ray  trace  for  a  single  ray  and 
store  all  heights  traced  to  each  output  range  step. 

(10)  Free-Space  Propagator  Phase  Term  (PHASEl)  SU  -  to  initialize  the  fi’ee-space 
propagator  array  for  subsequent  use  in  the  PESTEP  SU. 

(11)  Environmental  Propagator  Phase  Term  (PHASE2)  SU  -  to  calculate  the 
environmental  phase  term  for  an  interpolated  environment  profile. 

(12)  Profile  Reference  (PROFREF)  SU  -  to  adjust  the  current  refractivity  profile  so 
that  it  is  relative  to  a  reference  height. 

(13)  Interpolate  Profile  (INTPROF)  SU  -  to  perform  a  linear  interpolation  vertically 
with  height  on  the  refractivity  profile. 

Parabolic  Equation  Step  (PESTEP)  CSC  -  to  advance  the  entire  TPEM  CSCI 
algorithm  one  output  range  step,  referencing  various  SUs  to  calculate  the  propagation  loss 
at  the  current  output  range.  This  CSC  references  the  FFT  SU  and  PHASE2  SU  of  the 
PEINIT  CSC.  The  PESTEP  CSC  component  SUs  include: 

(1)  DOSHIFT  SU  -  to  shift  the  field  by  the  number  of  bins,  or  PE  mesh  heights 
corresponding  to  local  ground  height. 

(2)  GETALN  SU  -  to  compute  the  impedance  term  in  the  Leontovich  boundary 
condition,  and  the  complex  index  of  refraction  for  finite  conductivity  and  vertical 
polarization  calculations. 
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(3)  Free  Space  Range  Step  (FRSTP)  SU  -  to  propagate  the  complex  PE  solution  field 
in  free  space  by  one  range  step.  This  SU  references  the  FFT  SU  of  the  PEINIT  CSC. 

(4)  Reffactmty  Interpolation  (REFINTER)  SU  -  to  interpolate  both  horizontally  and 
vertically  on  the  modified  reffactivity  profiles.  This  SU  references  the  PROFREF  SU  and 
INTPROF  SU  of  the  PEINIT  CSC. 

(5)  Remove  Duplicate  Reffactivity  Levels  (REMDUP)  SU  -  to  remove  any  duplicate 
reffactivity  levels  in  the  currently  interpolated  profile. 

(6)  Calculate  Propagation  Loss  (CALCLOS)  SU  -  to  determine  the  propagation  loss 
at  each  output  height  point  at  the  current  output  range. 

(7)  Get  Propagation  Factor  (GETPFAC)  SU  -  to  determine  the  propagation  factor  at 
the  specified  height  in  dB. 


4.2  Concept  of  Execution 

The  program  flow  of  the  TPEM  CSCI  is  illustrated  in  Figure  4-  1.  Note  that  the 
TPEM  CSCI  is  shown  within  the  context  of  a  calling  CSCI  application  such  as  one  that 
generates  a  coverage  or  loss  diagram.  The  efficient  implementation  of  the  TPEM  CSCI 
will  have  far  reaching  consequences  upon  the  design  of  an  application  CSCI  beyond  those 
mentioned  in  Section  7.3.  For  example.  Figure  4-  1  shows  checking  for  the  existence  of  a 
previously  created  TPEM  output  file  prior  to  the  access  of  the  TPEM  CSCI.  The 
application  CSCI  will  have  to  consider  if  the  atmospheric  or  terrain  environment  has 
changed  since  the  TPEM  output  file  was  created  or  if  any  new  height  or  range 
requirement  is  accommodated  within  the  existing  TPEM  CSCI  output  file.  Because  these 
and  many  more  considerations  are  beyond  the  scope  of  this  document  to  describe,  an 
application  CSCI  designer  should  work  closely  wdth  the  TPEM  CSCI  development  agency 
in  the  implementation  of  the  TPEM  CSCI. 
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Figure  4- 1  Program  flow  of  the  TPEM  CSCI 
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4.3  Interface  Design 


4.3.1  Interface  Identification  and  Diagrams 

The  TPEM  CSCI  interface  design  consists  of  two  FORTRAN  INCLUDE  files  for 
the  external  and  internal  data  interface,  FORTRAN  CALL  statements  for  both  output  data 
and  internal  interfacing,  and  several  FORTRAN  COMMON  blocks  for  the  internal 
interface.  The  INCLUDE  files  are  called  TPEM.INC  and  FFTSIZ.INC.  These 
INCLUDE  statements  provide  several  constants  necessary  for  dimensioning  of  internal 
data  arrays.  The  COMMON  block  names  are:  (1)  ARRAYS,  (2)  HTVAR,  (3) 
IMPEDANCE,  (4)  MISCVAR,  (5)  PARINIT,  (6)  PATTERN,  (7)  PEVAR,  (8) 
PROFWREF,  (9)  RHSTPS,  and  (10)  TRVAR. 

4.3.2  External  Interface 

The  TPEM  CSCI  is  accessed,  through  the  PEINIT  CSC,  by  a  subroutine  call  from 
the  TESS  CSCI  which  should  provide,  as  global  data  elements,  the  values  specified  in 
Table  4-1  through  Table  4-4. 

The  TPEM  CSCI  external  data  elements,  i.e.  those  data  which  must  be  provided 
by  the  calling  TESS  CSCI  in  the  INCLUDE  file  prior  to  the  TPEM  CSCI  execution  can 
be  divided  into  four  classifications.  The  first  is  external  data  related  to  the  atmospheric 
environment,  specified  within  Table  4-1;  the  second  is  data  related  to  the  EM  system  being 
assessed,  specified  within  Table  4-2;  the  third  is  data  related  to  the  implementation  of  the 
TPEM  CSCI  by  the  TESS  CSCI,  specified  within  Table  4-3;  and  the  fourth  is  data  related 
to  the  terrain  information,  specified  within  Table  4-4.  Each  table  lists  the  type,  units,  and 
bounds  of  each  data  element.  Table  4-5  specifies  the  output  data  of  the  TPEM  CSCI 
model  passed  back  to  the  calling  CSCI  via  the  FORTRAN  CALL  statements. 
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Table  4-1  TPEM  CSCI  Environmental  Data  Element  Requirements 


Name 

Description 

■33B 

Units 

Bounds 

reftnsl 

Profile  modified  refractivity 
array  referenced  to  mean  sea 
level 

real 

M 

>0.0  a 

hmsl 

Profile  height  array 

real 

m 

>0.0  a 

nprof 

Number  of  profiles 

integer 

N/A 

>  1 

Ivlep 

Number  of  profile  levels 

integer 

N/A 

>2 

mgprof 

Array  of  ranges  to  each  profile 

real 

m 

>0.0 

^  Couplets  of  height  and  modified  refractivity  associated  with  that 
height  are  referred  to  within  this  document  as  an  environmental 
profile. 

10 


Table  4-2  TPEM  CSCI  External  EM  System  Data  Element  Requirements 


Name 

Description 

■BSSi 

Units 

Bounds 

bwidth 

Antenna  vertical  beam  width 

real 

degree 

0.5  to  45.0 

elev 

Antenna  elevation  angle 

real 

degree 

-10.0  to  10.0 

freq 

EM  system  frequency 

real 

MHz 

100.0  to  20,000.0 

ipat 

Antenna  pattern 

0  =  Omni-directional 

1  =  Gaussian 

2  =  Sine  (X)/X 

3  =  Cosecant-squared 

4  =  Generic  height-finder 

integer 

N/A 

0  to  4 

polar 

Antenna  polarization 

H  =  Horizontal 

V  =  Vertical 

character 

N/A 

‘H’  or  ‘V’ 

antht 

Antenna  height  above  local 
ground  at  range  0.0  m 

real 

m 

>  1.0 
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Table  4-3  TPEM  CSCI  External  Implementation  Constants 


Name 

Description 

Units 

Bounds 

mxnfft 

Maximum  power  of  2  for 
transform  size 

integer 

N/A 

>9 

maxpts 

Maximum  number  points  for  FFT 
array 

integer 

N/A 

=  2 

mxlvls 

Maximum  number  of  profile  levels 
for  all  possible  applications  of 
TPEM 

integer 

N/A 

>2^ 

mxrout 

Maximum  number  of  range  output 
points  for  all  possible  applications 
of  TPEM 

integer 

N/A 

>  1  a 

nrout 

Number  of  range  output  points  for 
a  particular  application  of  TPEM 

integer 

N/A 

=  mxrout^ 

mxzout 

Maximum  number  of  height 
output  points  for  all  possible 
applications  of  TPEM 

integer 

N/A 

>  1  a 

nzout 

Number  of  height  output  points 
for  a  particular  application  of 

TPEM 

integer 

N/A 

=  mxzout  ^ 

mxnprqf 

Maximum  number  of  profiles  for 
all  possible  applications  of  TPEM 

integer 

N/A 

>  1  ^ 

mxter 

Maximum  number  of  height/range 
points  in  terrain  profile  for  all 
possible  applications  of  TPEM 

integer 

N/A 

>2^ 

lerr6 

Logical  flag  to  allow  for  error  -6 
to  be  bypassed 

logical 

N/A 

‘.true.’  or 

‘.false.’  a 

lerril 

Logical  flag  to  allow  for  error  -12 
to  be  bypassed 

logical 

N/A 

‘.true.’  or 

‘.false.’  a 
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Table  4-3  TPEM  CSCI  External  Implementation  Constants  (con’t) 


Name 

Description 

Units 

Bounds 

rmax 

Maximum  range  output  for  a 
particular  application  of  TPEM 

real 

m 

>  5000.0  b 

hmin 

Minimum  height  output  for  a 
particular  application  of  TPEM 

real 

m 

>o.ob 

hmax 

Maximum  height  output  for  a 
particular  application  of  TPEM 

real 

m 

>  100.0  b 

propang 

Maximum  PE  propagation  angle 

real 

deg 

>0.0  a 

^  refer  to  section  7.2  for  a  complete  description. 
^  refer  to  section  7.3  for  a  complete  description. 
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Table  4-4  TPEM  CSCI  External  Terrain  Data  Element  Requirements 


Name 

Description 

WESSM 

Units 

Bounds 

terx 

Terrain  profile  range  array 

real 

m 

>0.0  a 

tery 

Terrain  profile  height  array 

real 

m 

>0.0  a 

itp 

Number  of  terrain  profile  points 
for  a  particular  application  of 
TPEM 

integer 

N/A 

<  mxter  a 

igr 

Number  of  ground  types  for  a 
particular  application  of  TPEM 

integer 

N/A 

<50 

igrnd 

Array  of  ground  composition 
types  for  a  particular  application 
of  TPEM 

integer 

N/A 

0  <  igrnd  <  5  a 

0  =  Sea  water 

1  =  Fresh  water 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  User  defined 

rgrnd 

Array  of  ranges  for  which  ground 
types  are  applied  for  a  particular 
application  of  TPEM 

real 

m 

>0.0  a 

dielec 

2-dimensional  array  of  relative 
permittivity  and  conductivity  for  a 
particular  application  of  TPEM 

real 

N/A 

>0  a 

^  refer  to  Section  7.3  for  a 
complete  description. 
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Table  4-5  TPEM  CSCI  Output  Data  Element  Requirements 


Name 

Description 

WSSSIM 

Units 

Source 

hminter 

Minimum  elevation  height  of 
terrain  profile 

real 

m 

PEINIT  CSC 

terror 

Integer  value  that  is  returned  if 
an  error  exists  in  input  data 

integer 

N/A 

PEINIT  CSC 

mloss 

Propagation  loss 

integer 

cB 

PESTEP 

CSC 

jstart 

Output  height  index  at  which 
valid  propagation  loss  values 
begin 

integer 

N/A 

PESTEP 

CSC 

jend 

Output  height  index  at  which 
valid  propagation  loss  values  end 

integer 

N/A 

PESTEP 

CSC 

rout 

Current  range 

^Refer  to  Section  4.3.4  for  a  complete 
description. 

real 

m 

PESTEP 

CSC 

4.3.3  Internal  Interface 

Section  4.2  shows  the  relationship  between  the  TPEM  CSCI  and  its  two  main 
CSCs  PEINIT  and  PESTEP.  This  relationship  is  illustrated  in  Figure  4-  1.  The  internal 
interface  between  these  two  CSCs  and  the  TPEM  CSCI  is  left  to  the  design.  However, 
the  internal  structure  of  the  TPEM  CSCI  and  its  CSCs  and  SUs  is  shown  in  Table  4-6. 
The  left  two  columns  show  the  calling  subroutines,  and  the  right  two  columns  the 
subroutines  called.  Columns  2  and  4  in  Table  4-6  give  the  section  number  in  Section  5 
where  more  details  about  the  various  CSCs  and  SUs  of  the  TPEM  CSCI  can  be  found. 
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Table  4-6  TPEM  Internal  Interface  Design 


Software  Design  Description 

Software  Design  Description 

SDD  Design  Description 
Name 

SDD  Section 
Number 

Software  Design 
Description  Name 

SDD  Section 
Number 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Refractivity  Initialization 
(REFINIT)  SU 

5.1.2 

Refractivity  Initialization 
(REFINIT)  SU 

5.1.2 

Remove  Duplicate 
Refractivity  Levels 
(REMDUP)  SU 

5.2.5 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Trace  for  Minimum  Angle 
(TRACEA)  SU 

5.1.3 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Dielectric  Initialization 
(DIEINIT)  SU 

5.1.4 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Get  FTT  Size 
(GETFFTSZ)  SU 

5.1.5 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Starter  Field  Initialization 
(XYINIT)  SU 

5.1.6 

KSHiiiiiH 

5.1.6 

IoSEkSmE^BBIH 

5.1.1 

5.1.6 

GETALN  SU 

5.2.2 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Fast-Fourier  Transform 
(FFT)  SU 

5.1.7 

5.1.7 

Sine  Fast-Fourier 

Transform  (SINFFT)  SU 

5.1.8 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Trace  Launch  Angle 
(TRACEH)  SU 

5.1.9 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

1 

Free-Space  Propagator 
Phase  Term  (PHASEl)  SU 

5.1.10 

Parabolic  Equation 
Initialization  (PEINIT) 

CSC 

5.1 

Environmental  Propagator 
Phase  Term  (PHASE2)  SU 

5.1.11 
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Table  4-6  TPEM  Internal  Interface  Design  (con’t) 


Software  Design  Description 


Software  Design  Description 


SDD  Design  Description 
Name 


Parabolic  Equation 
Initialization  (PEINIT) 
CSC 


Parabolic  Equation 
Initialization  (PEINIT) 
CSC 


Refractivity  Interpolation 
(REFINTER)  SU 


SDD  Section  Software  Design 

Number  Description  Name 


5 . 1  Profile  Reference 

(PROFREF)  SU 


Interpolate  Profile 
(INTPROF)  SU 


DOSHIFT  SU 


Parabolic  Equation  Step  5.2 
(PESTEP)  CSC 


GETALN  SU 


Remove  Duplicate 
Refractivity  Levels 
REMDUP)  SU 


Get  Propagation  Factor 
GETFAC) SU 


SDD  Section 
Number 


5.1.12 


5.1.13 


5.1.13 


Environmental  Propagator  5.1.11 
Phase  Term  (PHASE2)  SU 


4.3.4  Internal  Data 


The  TPEM  CSCI  requires  several  internal  arrays  to  be  pre-dimensioned.  Since  the 
software  documentation  standards  and  coding  requirements  do  not  allow  for  dynamic 
dimensioning,  these  arrays  must  be  dimensioned  at  program  compile  time.  The 
implementation  constants  mxrout  and  mxzout  refer  to  the  extreme  dimensions  for  various 
range  and  height  related  arrays  for  all  possible  applications  of  the  TPEM  CSCI  and  will  be 
specified  when  the  TPEM  CSCI  is  compiled. 

Due  to  the  computational  intensity  of  the  TPEM  CSCI,  it  may  not  be  necessary  or 
desirable  to  use  the  extreme  capability  of  the  TPEM  CSCI  for  all  applications.  The 
variables  nrout  and  nzout  refer  to  the  desired  number  of  range  and  height  output  points  for 
any  one  particular  application,  and  will  be  specified  when  the  PEINIT  SU  is  called. 

For  the  TPEM  CSCI  implementation  within  the  TESS  coverage  and  loss  diagram 
applications,  mxrout  and  nrout  should  be  set  equal,  and  mxzout  and  nzout  should  be  set 
equal.  The  values  chosen  for  mxrout  and  mxzout  must  be  applicable  to  the  coverage 
diagram. 

One  of  the  parameters  returned  to  the  TESS  application  fi'om  the  PEINIT  CSC  is 
terror.  This  is  to  allow  for  greater  flexibility  in  how  input  data  is  handled  within  the  TESS 
application.  Table  4-7  lists  all  possible  errors  that  can  be  returned. 
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Table  4-7  PEINIT  SU  Returned  Error  Definitions 


error 

Definition 

-6 

Last  range  in  terrain  profile  is  less  than  rmax.  Will  only  return  this  error 
if  lerrS  set  to  ‘.true.’ 

-8 

hmax  is  less  than  maximum  height  of  terrain  profile 

-12 

Range  of  last  environment  profile  given  (for  range-dependent  case)  is 
less  than  rmax.  Will  only  return  this  error  if  lerrll  set  to  ‘.true.’ 

-14 

Last  gradient  in  any  environment  profile  is  negative 

-17 

Range  points  of  terrain  profile  are  not  increasing 

-18 

First  range  value  in  terrain  profile  is  not  0. 

The  logical  variables  lerr6  and  lerrll,  when  set  to  ‘.false.’,  allow  the  TESS 
application  to  bypass  their  associated  errors  as  these  are  not  critical  to  the  operation  of  the 
TPEM  CSCI. 

The  TPEM  CSCI  provides  propagation  loss  for  moderately  low  angles  and 
heights.  It  does  not  provide  propagation  loss  for  all  heights  and  ranges  desired. 
Propagation  loss  values  can  be  provided  automatically  at  all  heights  firom  at  least  90%  of 
the  desired  maximum  range,  rmax,  to  rmax.  At  lesser  ranges,  propagation  loss  values  will 
be  reduced  in  height.  If  greater  coverage  is  desired  (i.e.,  propagation  loss  desired  at  closer 
ranges  and  larger  heights),  a  non-zero  positive  value  for  propang  must  be  specified.  The 
TPEM  CSCI  can  then  provide  propagation  loss  for  all  heights  and  ranges  up  to  the 
maximum  angle  specified  by  propang.  Set  propang  equal  to  zero  to  use  the  TPEM 
CSCFs  default  angle  and  coverage. 
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5.  CSCI  DETAILED  DESIGN 


A  description  of  each  component  of  the  TPEM  CSCI  is  provided  in  the  following 
subsections  together  with  the  data  flow  and  relationships  between  the  main  CSCs  and  sub 
level  SUs. 

5.1  Parabolic  Equation  Initialization  (PEINIT)  CSC 

The  purpose  of  the  PEINIT  SU  is  to  interface  with  various  SUs  for  the  complete 
initialization  of  the  TPEM  CSCI.  Figure  5-  1  illustrates  the  program  flow  for  the  PEINIT 
SU. 


Upon  entering  the  PEINIT  SU,  several  variables  are  set.  The  error  flag  {terror), 
the  maximum  PE  propagation  angle  (©„„),  the  minimum  reference  height  for  internal 
calculations  {y^M^r),  and  the  maximum  tangent  angle  from  the  source  to  the  terrain  peaks 

(angu)  are  set  to  0.  The  logical  terrain  flag  {fter)  is  set  to  .FALSE.,  and  the  antenna 
height  relative  to  the  reference  height  ( )  is  set  to  h^^ammuter  ■ 

Next,  the  maximum  output  range,  Xmax,  the  maximum  output  height,  y,„ax,  and  the 
minimum  output  height,  ymm,  are  checked  for  valid  numerical  values.  Xmax,  is  set  to  the 
value  input  from  the  calling  CSCI  or  5000  meters,  whichever  is  greater;  snAymax,  is  set  to 
the  value  input  from  the  calling  CSCI  or  100  meters,  whichever  is  greater.  If  ymm  is 
greater  ihanymax,  then  terror  is  set  to  -42  and  the  PEINIT  CSC  is  exited.  If  the  maximum 
output  range  and  minimum  and  maximum  output  height  values  are  valid,  then  the  PEINIT 
CSC  proceeds  to  the  next  step. 
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Figure  5-  1  Program  flow  of  the  PEINIT  CSC 
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The  atmospheric  volume  must  be  "covered"  or  resolved  with  a  mesh  of  calculation 
points  which  will,  as  a  matter  of  routine,  exceed  the  height/range  resolution  requirements 
of  the  particular  application  of  the  TPEM  CSCI.  The  height  and  range  mesh  size  per 
TPEM  CSCI  output  point,  and  respectively,  are  calculated  from  the  number  of 

TPEM  outputs  and  the  maximum  range  and  height  as  follows: 


Ax  ,  = 


Az^„  = 


vnp.nrout 

[y  -  y  ) 

V  niox  J  mm  / 


vnp.nzout 

The  array  ,  containing  all  output  height  points  is  determined  by  the  formula 


(1) 


(2) 


z  Ai)  =  y  +  i  Az 

out\  /  •y  mm 


for  /  =  vnp.nzout. 


(3) 


Next,  several  variables  are  determined  for  later  calculations.  These  are  the 
wavelength,  2,  the  free-space  wavenumber,  k^,  and  the  constant,  con.  They  are 

determined  as  follows: 


A 


where  is  the  speed  of  light  (299.79  x  10®  m/s  ); 


(4) 


K 

con 


2k 

T’ 

10®  k^. 


(5) 


Next,  the  constants  used  to  determine  the  antenna  pattern  factor  are  calculated  as 
follows.  First,  the  antenna  vertical  beamwidth  is  not  allowed  to  go  out  of  the  range  from 
0.5  to  45.0  degrees  and  is  determined  from: 


//w  =  AMINl(AMAXl(5v./)w/Jt//,.5),45.0)— ^  . 

V  I  ’  j’  ;  jgQQ 


(6) 
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Then  the  antenna  pattern  elevation  angle  is  not  allowed  to  go  outside  the  range  from 
-10  to  10  degrees  and  is  determined  from 


a  =  AMINi(aMAX1  (5v.e/ev,-10.0},10.0)-^  .  (7) 

If  the  antenna  pattern  is  Gaussian  (/pfm=l),  then  ontfac  is  given  by 


ant 


fac 


.34657359 


(8) 


If  the  antenna  pattern  is  Sin(X)/X  (iptm  =  2),  or  a  generic  height  finder  (iptm  =  4),  then 
ontfac  is  given  by 


ant 


1.39157 


fac 


SIN 


^bwr 


and  ju^  is  given  by 


(9) 


r 


TAN"' 


TV 


2 

TV 

1  - 

VantfJ 

(10) 


The  terrain  profile  is  initially  examined  and  unnecessary  range/height  points  are 
discarded  if  neighboring  terrain  slopes  are  redundant.  The  minimum  terrain  height  is 
determined,  and  then  the  entire  terrain  profile  is  adjusted  by  this  height  so  that  all  internal 
calculations  are  referenced  to  this  height.  This  is  done  in  order  to  maximize  the  PE 
transform  calculation  volume. 


First, /ter  is  set  to  .TRUE,  if  tr.itp  is  greater  than  0.  Next,  the  terrain  profile  is 
checked  for  increasing  range  points.  If  any  range  point  is  not  increasing,  then  terror  is  set 
to  -17  and  the  PEINIT  CSC  is  exited.  The  first  range  value  is  also  checked;  if  it  is  not  0 
then,  terror  is  set  to  -18  and  the  PEINIT  CSC  is  exited.  Next,  the  value  of  the  last  range 


23 


I 


point  is  checked.  If  it  is  less  than  Xmax  and  ef.lerr6  is  set  to  .TRUE.,  then  terror  is  set  to  -6 
and  the  PEINIT  CSC  is  exited.  If  the  last  range  value  is  less  than  Xrmx  and  ef.lerr6  is  set  to 
.FALSE.,  then  an  extra  terrain  point  is  added  with  range  equal  to  x^a,  and  height  equal  to 
the  last  terrain  height  point. 

A  scratch  file  is  then  opened  for  temporary  storage  of  terrain  points.  Only  those 
terrain  points/segments  whose  surrounding  slope  difference  is  greater  than  10'^  are  stored. 
The  slope  difference  scd  is  computed  by 


tr.  tery(i  + 1)  -  4.  teryQ) 

tr.  tery(i)  -  tr.  tery(i  - 1) 

AMAXl^l  Qr^,tr.  terxQ  + 1)  -  Zr.  terx(f^ 

AMAXl^l  0“^ ,  tr.  terxQ)  -  tr.  terx(i  -  l)j 

.(II) 


Once  all  desired  terrain  points  are  stored,  they  are  read  back  into  arrays  tr.terx  and  tr.tery. 
Next,  the  minimum  and  maximum  (ytemax)  terrain  heights  of  the  profile  are 

determined.  The  antenna  height  relative  to  the  local  ground  height  at  range  0  (antref  )  is 
given  by 


antref  ^transmitter  tr.tery(\).  (12) 

Next,  the  slopes  along  the  entire  terrain  profile,  sip,  is  computed  along  with  the  maximum 
tangent  angle  from  the  source  to  the  terrain  peaks,  angu.  These  quantities  are  given  by 


slpii) 


tr.tery{i  +  \)  -  tr.teryif) 


AMAXl  { 1 0  ^  ,tr.  terx(i  +  1)  -  tr.  fenc(/)} 


angu  =  AMAXl 


flw^,TAN 


^ tr.teryQ)  -  antref 
tr.terx{i) 


+.5  deg 


for  i  =  \,2,2...\tr.itp-'\}^ 
for  i  =  \,2,'i...\tr.itp-]^  .(lA) 


The  following  variables  used  in  later  computations  are  initialized.  The  minimum 
height  relative  loymMer  (ymrf),  the  maximum  calculation  height  relative  to>^„,„,e;.  (/24m),  and 
ziim  are  determined  by 


ymref 


y. 


-  y» 


(15) 


-  y» 


(16) 
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=  PMAK\[h^^,„,  (17) 

Next,  a  REFINIT  SU  is  referenced  to  initialize  the  TESS  CSCI  specified  modified 

refi-activity  and  also  to  test  for  valid  environment  profiles.  Once  the  reffactivity  profiles 
are  initialized,  the  gradients  {d M[j)ldh)  of  the  reffactivity  profile  at  range  0  are 

computed  as  follows: 


grad. 

dh 

dh 


ref<hni(J  +  l)  -  refdumij) 
htdum(J  +  \)  -  htdum(J) 

10"  AMAXl  [grad. ,  10"^  ] 
10"  AMINl  [gradj ,  - 10”"  ] 


for  y  =  l,2,3,...{/v/ep-l}  (18) 


if  gradj.  >  0 
if  gradj  <  0 


(19) 


In  order  to  determine  the  critical  angle,  acru,  the  modified  reffactivity  at  the  source 
height.  Mo,  and  the  minimum  refractivity  above  (M,)  and  below  (A/*)  the  source  height 
are  computed.  The  variable  acru  is  then  given  by 


=  AMAXl  (a,,  a,). 


(20) 


where 


a,  =  ^2xl0”"AMAXl(0,  M„-  mJ  (21) 

^2  =  ^2x10”"  AMAXl (O,  -  M,)  .  (22) 

acrit  is  now  used  to  initialize  »  with  Xum  set  equal  to  90%  of  Xmax,  and  Pa„gie  set  equal 
to  vnp.propang  in  radians.  If  p^ngu  *s  non-zero,  then  0„,^  is  set  equal  to  . 


In  order  to  automatically  determine  the  maximum  PE  calculation  angle  (0„ac),  the 
TRACEA  SU  is  referenced.  This  will  determine,  via  ray  tracing,  the  minimum  angle  for 
which  adequate  coverage  can  be  given  with  the  specified  terrain  and  environment  profile. 
Once  a  value  for  is  obtained  ffom  the  TRACEA  SU  reference  call,  0„^  is  then 

divided  by  .75  since  the  upper  14  of  the  calculation  domain  is  filtered. 
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Due  to  numerical  constraints,  0„^  is  not  allowed  to  go  beyond  certain  values, 
depending  on  frequency.  0^^  is  then  checked  to  make  sure  it  falls  within  the  specified 
angular  limits,  based  on  frequency  as  follows: 

0_„  =  AMAXl(4-,  0„)  for  <  200 

AMAXl(  3- ,  0„  )  for  200  <  <  400 

0.....  =  AMAXl  (2- ,  0„)  for  400  <  <  600 

0.„  =  AMAXl  ( 1- .  0..„  )  for  600  <  <  1500 


0_  =  AMAXK 

(.9‘,0«.) 

for  1500  < 

<2500 

(27) 

=  AMAXl) 

for  2500  <  4^^ 

<2900 

(28) 

0_  =  AMAXl) 

(r,0._) 

for  2900 

<4100 

(29) 

0_  =  AMAXl) 

for  4100  <4^^ 

<5000 

(30) 

0_  =  AMAXl) 

;.5‘, 

for  5000  <  4^^ 

<  9000 

(31) 

and  if  is  greater  than  9000  MHz,  then  the  value  for  0^^  is  left  untouched  and  no 

lower  limit  is  applied.  If  performing  a  vertical  polarization  case  (i.e.,  sv.polar  =  ‘V’),  then 
0„_  is  doubled. 

nuDC 

A  GETFFTSZ  SU  is  referenced  to  determine  the  fast  Fourier  transform  (FFT)  size 
for  the  calculated  angle  and  to  initialize  data  elements  within  the  PE  region  which  are 
dependent  on  the  size  of  the  FFT.  The  minimum  size  for  the  FFT  is  determined  from  the 
Nyquist  criterion.  Once  the  necessary  PE  parameters  have  been  determined  based  on 
0^  and  the  maximum  output  height  0„^  is  then  “maximized”  within  the  calculated 

Zmax  and  FFT  size.  This  is  done  only  if fter  is  .TRUE,  and  if  sv.propccng  is  equal  to  0. 

Next,  the  radar  horizon  range  in  meters,  Vhor,  for  the  source  height  (htransmitter)  and  0 
receiver  height,  is  computed  by 


(23) 

(24) 

(25) 
26) 
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(32) 


^Hor  =  4124.5387 

and  the  initial  PE  range  step  is  given  by 

Ax^g,  =  T-  kg  ^pE  •  (33) 

Due  to  numerical  constraints,  numerical  limits  will  be  imposed  on  the  PE  range  step, 


depending  on  as  follows.  If  performing  a  terrain  case,  then 

hXpE  =  AMAXl(75,  Axp£.)  for  5  km  <10  km  (34) 

AXp£.  =  AMAXl(90,  Axpp.)  for  10  km  <15  km  (35) 

AXpE  =  AMAXl(l00,  Axpp)  for  15  km  <^„,^  <20  km  (36) 

AXp^  =  AMAXl(llO,  AXpp)  for  20  km  <_y,„^  <30  km  (37) 

AXpE  =  AMAXl  (l75,  AXpp)  for  30  km  <_y,„^  <50  km  (38) 

AXpp.  =  AMAXl  (200,  AXpp)  for  50  km  <_y„^  <75  km  (39) 

Axpp.  =  AMAXl  (250,  AXpp)  for  75  km  <100  km  (40) 

Axpp.  =  AMAXl  (300,  Axpp)  for  100  km  .  (41) 


An  absolute  upper  limit  of  700  m  is  imposed  for  Axp^..  If  not  performing  a  terrain  case, 
then  AxpE  is  given  as  follows; 

Axpp  =  AMAXl  (30,  AMINl{  1000.,  Axpp  })  for  ;  (42) 

Axpp  =  AMAXl(300,AMINl{l000.,  Axp^  })  for  .  (43) 

Several  variables  are  then  initialized  for  later  use  in  PE  calculations.  One-half  of 
the  PE  range  step  is  given  by  Axp^2  -  ^pf  >  plcnst,  used  in  calculating  propagation 

loss,  is  determined  as 

plcnst  =  20  ALOGIO  (2  )  ;  (44) 
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the  angle  (or  p-space)  mesh  size,  Ap,  the  Fourier  transform  normalization  constant, /„om„ 

the  constant  used  in  determining  the  ffee-space  phase  factors,  cnst,  the  transform  size 

minus  1,  nml,  Va  of  the  transform  size,  «,/,  and  twice  the  height  (or  z-space)  mesh  size, 

A 

are  determined  as  follows: 


Ap  = 


n: 


fr 


norm  5 


cnst  = 


k.  ’ 


nml  -  -  1; 


w. 


Next,  the  filter  array,  FILT,  for  subsequent  filtering  of  the  PE  field,  is  given  by 


(45) 

(46) 

(47) 


FILTii) 


An  i 


rim 

for/ =  0,1,2,...-^  . 

4 


(48) 


If  no  ground  constants  were  specified  (i.e.,  tr.ig^  is  equal  to  0),  then  the  initial 

value  for  the  ground  constant  parameters,  tr.igmd  and  tr.rgrnd  are  set  to  0  and  tr.igr  is 
set  to  1.  If  vertical  polarization  is  specified,  the  DIEINIT  SU  is  used  to  initialize  the 
dielectric  ground  constants.  For  general  ground  types,  the  permittivity  and  conductivity 
are  calculated  as  a  function  of  frequency  fi'om  curve  fits  to  the  permittivity  and 
conductivity  graphs  shown  in  recommendations  and  reports  of  the  International  Radio 
Consulting  Committee  (Ref  d). 


A  PE  starting  SU  (XYINIT)  and  an  antenna  pattern  factor  SU  (ANTPAT)  are 
referenced  by  the  XYINIT  SU  to  generate  a  first  solution  to  the  PE,  along  -with  a 
GETALN  SU  to  compute  the  complex  index  of  refraction  and  other  variables  used  in  the 
mixed  transform  method  for  vertical  polarization.  A  FFT  SU  is  referenced  to  transform 
the  PE’s  starting  solution  from  p-  (or  angle-)  space,  to  z-  (or  height-)  space. 

Then,  if  vertical  polarization  is  specified,  variables  used  in  Kuttler  and  Dockery’s 
mixed  transform  method  (Ref  h)  are  initialized.  These  are  given  by 
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(49) 


C,  =  R,  't'U,  R{ 

>=0 

c,  =  R,f,‘U,  (-R,y  (SO) 

7=0 

where  the  prime  on  the  summation  indicates  that  the  values  at  the  endpoints,  0  and  ngt,  are 
to  be  weighted  by  a  factor  ofV^. 

Next,  the  variables  Xout,  ycur,  ycurm,  and  yiast  are  set  equal  to  0.  If  performing  a 
terrain  case,  then  the  variable  yiast  is  set  equal  to  the  ground  height  at  the  source.  The 
height  mesh  array,  is  next  defined  by 


ht  =  FLOAt(/)  Azpjp  for /■  =  0,1,2,  .  (51) 

The  TRACEH  SU  is  referenced  to  determine  the  height  at  each  output  range  step 
below  which  valid  propagation  loss  solutions  will  be  valid.  No  propagation  loss  solutions 
are  provided  above  these  heights. 

Finally,  the  PHASE  1  SU  should  be  referenced  to  initialize  the  free  space 
propagator  arrays.  For  a  range-independent  environment  profile,  the  PROFREF  SU 
adjusts  the  environment  profiles  by  the  internal  reference  height.  If  a  smooth  surface  case 
is  specified,  and  for  a  range-independent  environment  profile,  the  INTPROF  SU  is 
referenced  to  define  the  modified  refractivity  at  all  PE  vertical  mesh  points,  and  the 
PHASE2  SU  is  referenced  to  initialize  the  environment  propagator  arrays. 

Table  5-1  and  Table  5-2  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  PEINIT  CSC. 
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Table  5-1  PEEStlT  CSC  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

e/ 

Error  flag  structure  for  external 
implementation  constants 

N/A 

TPEM.INC 

ef.lerr6. 

Element  of  user-provided  error  flag 
structure  ef  that  will  trap  on  certain 
errors  if  set  to  .TRUE 

N/A 

TPEM.INC 

efJerrl2 

Element  of  user-provided  error  flag 
structure  ef  that  will  trap  on  certain 
errors  if  set  to  .TRUE 

N/A 

TPEM.INC 

f^Hz 

Frequency 

MHz 

TPEM.INC 

h 

transmitter 

Transmitting  antenna  height  above 
the  local  groimd 

meters 

TPEM.INC 

^ptrn 

Type  of  antenna  pattern  desired 

N/A 

TPEM.INC 

maxn4 

maxpts  divided  by  4;  specifies  the 
length  of  the  filter  array 

N/A 

TPEM.INC 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

N/A 

TPEM.INC 

mxlvls 

Maximum  number  of  height/M-unit 
levels 

N/A 

TPEM.INC 

mxnfft 

Maximum  power  of  2  for  transform 
size 

N/A 

TPEM.INC 

mxrout 

Maximum  number  of  output  range 
points 

N/A 

TPEM.rNC 

mxter 

Maximum  number  of  height/range 
points  allowed  for  terrain  profile 

N/A 

TPEM.INC 

mxzout 

Maximum  number  of  output  height 
points 

N/A 

TPEM.INC 

rf 

Reffactivity  structure  for  external 
environmental  data  elements 

N/A 

TPEM.INC 

rfMmsl 

2-dimensionaI  array  containing 
heights  with  respect  to  mean  sea 
level  of  each  profile.  Array  format 
must  be  hmslQj)  =  height  of  /th 
level  of  jth  profile.  y=l  for  range- 
independent  cases 

meters 

TPEM.IN 

rf.lvlep 

Number  of  levels  in  refractivity 
profile 

N/A 

TPEM.IN 

rf.nprof 

Number  of  profiles 

N/A 

TPEM.IN 

rf.refmsl 

2-dimensional  array  containing 
refractivity  with  respect  to  mean  sea 
level  of  each  profile.  Array  format 
must  be  refmsHjJ)  =  M-unit  at  /th 
level  of yth  profile.  j=l  for  range- 
independent  cases 

M-units 

TPEM.IN 

rf.rngprof 

Ranges  of  each  profile,  rngprofi)  = 
range  of  /th  profile 

meters 

TPEM.IN 

sv 

System  structure  for  external  system 
data  elements 

N/A 

TPEM.INC 
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Table  5-1  PEINIT  CSC  Input  Data  Element  Requirements  (con’t) 


Name 

Description 

Units 

Source 

sv,bwidth 

Half  power  (3  dB)  antenna  pattern 
beamwidth 

degrees 

TPEM.INC 

svMev 

Antenna  pattern  elevation  angle 

degrees 

TPEM.INC 

sv.polar 

Character  string  indicating 
polarization 

N/A 

TPEM.INC 

tr 

Terrain  structure  for  external  terrain 
data  elements 

N/A 

TPEM.INC 

tr  dielec 

2-dimensional  array  containing  the 
relative  permittivity  and  conductivity 
for  user  defined  terrain 

a 

TPEM.INC 

Number  of  different  groimd  types 
specified 

N/A 

TPEM.INC 

tr.igrnd 

Type  of  ground  composition  for 
given  terrain  profile 

N/A 

TPEM.INC 

tr.itp 

Number  of  points  in  terrain  profile 

N/A 

TPEM.INC 

tr.rgrnd 

Ranges  at  which  the  ground  types 
apply 

meters 

TPEM.INC 

tr.terx 

Range  points  of  terrain  profile 

meters 

TPEM.INC 

tr.tery 

Height  points  of  the  terrain  profile 

meters 

TPEM.INC 

vnp 

INPUTVAR  structure  for  external 
implementation  constants 

N/A 

TPEM.INC 

vnp.nrout 

Integer  number  of  output  range 
points  desired 

N/A 

TPEM.INC 

vnp.nzout 

Integer  number  of  output  height 
points  desired 

N/A 

TPEM.INC 

^max 

Maximum  output  range 

meters 

TPEM.INC 

ymax 

Maximum  output  height 

meters 

TPEM.INC 

ymin 

Minimum  output  height 

meters 

TPEM.INC 

conductivity  has  units  of  S/m. 


Table  5-2  PEINIT  CSC  Output  Data  Elements 


Name 

Description 

Units 

Source 

terror 

Integer  value  tliat  is  returned  if  any 
errors  exist  in  input  data 

N/A 

PEINIT  CSC 

X 

"^out 

Output  range 

meters 

PEINIT  CSC 

y  ntinter 

Reference  height  for  internal 
calculations  of  the  field  U  (minimum 
height  of  terrain  profile) 

meters 

PEINIT  CSC 

5.1.1  Antenna  Pattern  (ANTPAT)  SU 


The  purpose  of  the  ANTPAT  SU  is  to  calculate  an  antenna  pattern  factor 
(normalized  antenna  gain),  f(a),  for  a  specified  antenna  elevation  angle,  a.  Currently, 
antenna  pattern  factors  are  included  for  five  types  of  antennas.  These  patterns  include  an 
omni-directional  Qpatrn^G)  type,  a  Gaussian  {ipatm='^)  type,  a  Sin(X)/X  (iptm  =2)  type,  a 
cosecant-squared  (iptm  =3)  type,  and  a  generic  height-finder  (iptm  =4)  type. 

From  the  antenna  factor  (calculated  in  the  PEINIT  CSC)  crntj^c,  the  antenna  beam 
width  the  antenna  pattern  elevation  angle  ^  specified  elevation  angle  a  for 

which  the  antenna  pattern  factor  is  desired;  and  the  antenna  radiation  pattern  type  iptm',  the 
antenna  factor  is  calculated  as  follows.  If  the  antenna  pattern  is  omni-directional  (iptm=0), 
then,  the  antenna  pattern  factor  f(a) ,  is  given  by 

f(a)  =  1  .  (52) 

If  the  antenna  pattern  is  Gaussian  (iptm=l)',  then  f(a),  the  antenna  pattern  factor,  is 
given  by 


f(a)  =  >  .  (53) 

If  (Zp^  >  l),the  elevation  angle  relative  to  the  antenna  elevation  angle,  is  computed 
by 


^pat  =  CC  -  fior  •  (54) 

If  the  antenna  pattern  is  a  Sin(X)/X)  (iptm  =2)  or  a  generic  height-finder  (iptm  =4),  the 
following  calculations  are  made: 

(1)  The  radiation  pattern  is  simulated  as  a  Sin(X)/X  type  with  the  elevation 
angle  relative  to  the  antenna  elevation  angle,  adjusted  to  account  for  the  current 

pointing  angle  of  the  main  beam.  Initially,  the  value  for  computed  in  the  above 
equation  is  used. 
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(2)  If  the  antenna  radiation  pattern  type  is  a  generic  height-finder  {iptn  =4), 
then  for  |SIN(a)|>/i^^,  is  replaced  by 


Cipat  ~  ^  -ABS(SIN{a})  . 


(55) 


(3)  The  antenna  pattern  for  both  {iptm  =2  or  iptn  =4)  is  now  given  as 


f{cc)  =  1. 
f{a)  =  0.03 


for 


for 


a 


^  f^max  j 


pat 


otherwise  the  antenna  factor  is  given  as 


f{a)  =AMIN1 


l.,AMAXl 


SIN 


0.03,- 


antj^c^m\apat 


If  the  antenna  pattern  is  cosecant-squared  {iptn  =3),  the  antenna  factor  is  given  as 


/(a)  = 


SIN(a,,) 


for  >  Plyy/^  , 


f 

'  r 

f{a)  =  AMINl 

l.,AMAXl^ 

0.03, 

1 

a 


1.  -f 


pat 


(56) 

(57) 


(58) 


(59) 


for  a  0.0  (60) 


/(«)  =  1- 


otherwise  for  >  0.0 


(61) 


Table  5-3  and  Table  5-4  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  ANTPAT  SU. 
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Table  5-3  ANTPAT  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

antfac 

Antenna  pattern  parameter  (depends 

radian 

PEINIT  CSC 

^ptm 

Antenna  pattern  type 

N/A 

XYINITSU 

Antenna  pattern  elevation  angle 

radians 

PEINIT  CSC 

t^bwr 

Antenna  vertical  beam  width 

radians 

PEINIT  CSC 

max 

Limiting  angle  for  SES[(X)/X  and 
generic  height  finder  antenna  pattern 
factors 

radians 

PEINIT  CSC 

SIN(//o.) 

Sine  of  antenna  elevation  angle 

N/A 

XYINITSU 

Sine  of  antenna  vertical  beam  width 

N/A 

PEINIT  CSC 

SIN  {a) 

Sine  of  specified  elevation  angle 

N/A 

PEINIT  CSC 

Table  5-4  ANTPAT  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

/(«) 

Antenna  pattern  factor  for  specified 
elevation  angle  a 

ANTPAT  SU 
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5.1.2  Refractivity  Initialization  (REFBVIT)  SU 


The  purpose  of  the  REFINIT  SU^is  to  check  for  valid  environmental  profile  inputs 
and  to  initialize  the  refractivity  arrays. 

Upon  entering,  the  maximum  height  at  which  the  refractivity  profile  is 
extrapolated  is  set  to  10®  meters  and  the  maximum  range  at  which  the  refractivity 

profile  is  extrapolated  is  set  to  meters,  respectively,  in  a  DATA  statement.  In 
addition,  terror  is  initialized  to  zero. 

Then  the  environmental  data  is  checked  for  a  range-dependent  profile  (i.e.,  the 
number  of  profiles,  rf.nprof,  is  tested  to  determine  whether  there  are  more  than  one 
profile),  and  tested  whether  the  range  of  the  last  profile  entered,  rf.rngprofirf.nprof),  is 
less  than  the  maximum  output  range  specified  vr^ .  If  so,  an  error  message  is  returned 

(i.e.,  terror  is  set  equal  to  minus  twelve),  depending  on  the  value  of  error  flag,  elerrl2,  set 
in  the  TESS  CSCI  itself 

The  REFINIT  SU  tests  for  valid  refractivity  level  entries  for  each  profile.  First,  an 
extra  level  is  added  to  the  tabulated  profiles  with  an  extrapolated  gradient  (i.e.,  rf.lvlep  is 
set  equal  to  rf.lvlep  plus  one).  A  DO  loop  and  a  DO  WHILE  loop  nested  within  it  are 

used  to  test  for  profiles  that  contain  multiple  height/M-unit  values  that  are  equal.  The  DO 
loop  index  t  runs  from  1  through  rf.nprof.  The  height  difference  between  the  last  two 

differing  height  levels  in  each  refractivity  profile  is  initialized  to  zero  in  the  beginning  of 
the  DO  loop.  Before  the  DO  WHILE  loop  is  entered,  both  the  last  user-specified  level  in 
the  refractivity  profile,  Ivlml,  and  the  second-to-last  user-specified  level  in  the  refractivity 
profile,  Ivlml,  are  both  set  equal  to  rf.lvlep,  the  number  of  levels  in  the  refractivity  profile. 

Then  just  within  the  DO  WHILE  loop,  Ivlml  is  set  to  Ivlml  minus  one  (i.e.,  rflvlep-V) 
and  Ivlml  is  set  to  Ivlml  minus  one,  (i.e.,  rf.lvlep-2).  Using  these  indices  is  found 

from 


Kif  =ff  .hmsl(lvlm\,  /)  -  rf  .hmsl{lvlm2,  z)  (62) 

where  the  variable  rf.hmsl  is  a  2-dimensional  array  containing  heights  with  respect  to  mean 
sea  level  of  each  profile.  The  DO  WHILE  loop  is  executed  until  is  greater  than  lO"® 

(i.e.,  basically  non-zero).  After  the  DO  WHILE  loop  is  exited,  the  gradient  in  the 
refractivity  profile,  grad,  is  determined  from 
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(63) 


^  ref  .refinsl{lvlm\,i)-rf  .rejmsl{lvlm2,i) 


•dif 


where  the  variable  rf.refmsl  is  a  2-dimensional  array  containing  refractivity  with  respect  to 
mean  sea  level  of  each  profile.  If  the  last  gradient,  grad,  in  any  profile  is  negative,  the 
REFINIT  SU  returns  a  value  of  terror  equal  to  -14  and  REFINIT  SU  is  exited.  If  no 
errors  are  detected,  the  REFINIT  SU  then  extrapolates  the  environmental  profiles 
vertically  to  1000  km  in  height  as  follows 


rf.hmsl{rf.  lvlep,i)=hi^^^^ 

rf .  refmslirf .  Ivlep,  i)=rf . rejmsl{lvlm\,  /) + grad^i^^^  -  rf .  hmsl{lvlm\,  /) J 

The  results  of  the  extrapolation  of  the  first  environmental  profile  (i.e.,  the  profile  at 
range  0)  vertically  to  1000  km  in  height,  rf.hmsl  and  rf.refnisl,  are  transferred  to  dummy 
arrays,  htdum  and  refdum,  respectively.  First,  the  index  ,  the  counter  for  the  current 

profile,  is  initialized  to  one.  Then  the  range  of  the  next  refractivity  profile,  rv2,  is  set  equal 
to  rf.mgprqfi^ ).  In  a  DO  loop  with  index  i  running  from  1  through  rf.  Ivlep,  this  transfer 

is  made  as  follows: 


refdum{i^ = rf .  refmsl(i, 
htdum{j) = rf .  hmsl  (/,  ) 

The  last  provided  environment  profile  is  duplicated  at  10^  km  in  range  in  the 

following  manner.  First,  the  index  representing  the  final  number  of  refractivity  profiles, 
rip ,  is  set  equal  to  rf.nprof  plus  one.  .The  variable  rfrngprofirip )  is  set  equal  to  the  value 

of  ri„^^  which  has  a  value  of  10^  km.  Then  the  profile  is  duplicated  at  in  a  DO  loop 

with  index  i  running  from  1  to  rf  Ivlep  as  follows: 


(65) 


rf  .hmsl{i,n^=rf  .hmsl{i, rip  - 1^ 
rf.rejmslif,n,')=rf.rejmslii,n,  - 1) 


(66) 


Finally,  the  number  of  height/refractivity  levels  in  the  profile,  Ivlep,  is  set  equal  to  rf  Ivlep, 
and  a  reference  is  made  to  the  REMDUP  SU  to  remove  any  duplicate  refractivity  levels  in 
the  currently  interpolated  profile. 
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Table  5-5  and  Table  5-6  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  REFINIT  SU. 


Table  5-5  REFENIT  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

elerrl2 

Element  of  user-provided  error  flag 
structure  ef  that  will  trap  on  certain 
errors  if  set  to  .TRUE 

N/A 

PEINIT  CSC 

mxlvls 

Maximum  number  of  height/M-unit 
levels 

N/A 

TPEM.INC 

rf 

Refractivity  structure  for  external 
environmental  data  elements 

N/A 

TPEM.INC 

rf.hmsl 

2-dimensional  array  containing 
heights  with  respect  to  mean  sea 
level  of  each  profile.  Array  format 
must  be  hmslQJ)  =  height  of  /th 
level  of  jtli  profile.  j=\  for  range- 
independent  cases 

meters 

TPEM.INC 

rf.lvlep 

Number  of  levels  in  refractivity 
profile 

N/A 

TPEM.INC 

rf,nprof 

Number  of  profiles 

N/A 

TPEM.INC 

rfrefmsl 

2-dimensional  array  containing 
refractivity  with  respect  to  mean  sea 
level  of  each  profile.  Array  format 
must  be  refmslQj)  =  M-unit  at  /th 
level  of yth  profile.  j=l  for  range- 
independent  cases 

M-units 

TPEM.INC 

rfrngprof 

Ranges  of  each  profile,  mgprofii)  = 
range  of  /th  profile 

meters 

TPEM.INC 

vr 

max 

Maximum  range 

meters 

PEINIT  CSC 

Table  5-6  REFINIT  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

meters 

REFINIT  SU 

terror 

Integer  value  that  is  returned  if  any 
errors  exist  in  input  data 

N/A 

REFINIT  SU 

h 

Counter  for  current  profile 

N/A 

REFINIT  SU 

Ivlep 

Number  of  height/refractivity  levels 
in  profile 

N/A 

REFINIT  SU 

refdum 

Dummy  array  containing  refractivity 
values  for  current  (horizontally 
interpolated)  profile 

M-units 

REFINIT  SU 

rv2 

Range  of  the  next  refractivity  profile 

meters 

REFINIT  SU 
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5.1.3  Trace  for  Minimum  Angle  (TRACEA)  SU 


The  purpose  of  the  TRACEA  SU  is  to  perform  a  ray  trace  to  determine  the 
minimum  angle  required  (based  on  the  reflected  ray)  in  obtaining  a  PE  solution  for  all 
heights  up  to  the  maximum  output  height  (or  the  largest  height  allowed  from  the 
maximum  transform  size)  and  for  all  ranges  up  to  90%  of  the  maximum  output  range.  The 
maximum  PE  propagation  angle,  is  then  determined  from  this  angle  for  smooth 

surface  and  automatic  angle  calculation. 

For  terrain  cases,  the  maximum  PE  propagation  angle,  will  have  already 

been  set  to  the  larger  of  the  critical  angle  (if  a  duct  exists),  the  angle  that  clears  the  highest 
terrain  peak,  or  the  tangent  angle  determined  from  the  maximum  output  height  and  the 
maximum  output  range. 

If  a  maximum  propagation  angle  is  specified  by  the  TESS  CSCI  or  another  calling 
CSCI,  then  the  maximum  PE  propagation  angle  is  determined  based  on  this  given  angle. 
However,  a  ray  trace  is  still  performed  in  order  to  determine  the  initial  launch  angle  such 
that  the  local  angle  of  the  ray  remains  less  than  the  specified  maximum  propagation  angle. 
The  initial  launch  angle  is  to  be  used  in  the  TRACEH  SU  described  later. 

First,  a  constant  ©,5  is  defined  in  a  DATA  statement  as  15  degrees  in  radians. 
Then  the  following  internal  functions  are  defined. 


RADAl(a, 6)  =  +  2  grad  b 

(67) 

RP(a,6)  =  a+  ^ 

^  ’  grad 

(68) 

AP(a,  Z))  =  a  +  6  grad 

(69) 

m{a,b,c)  =  a  + 

2  grad 

Initially,  the  internal  variable  for  the  starting  launch  angle, 

(70) 

a^,  is  set  to  the  negative 

of  the  input  maximum  propagation  angle,  0„^,  used  in  the  PE  calculation.  The  index, 
I,n,  used  to  increment  or  to  decrement  the  initial  launch  angle  is  set  to  -1. 
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For  the  terrain  case,  is  set  to  the  value  of  In  addition,  if  the  user 

specified  propagation  angle,  Pa„gie,  in  radians  is  less  than  or  equal  to  lO"^  (i.e.,  for  all 

intents  and  purposes,  a  zero  angle  and  therefore,  automatic  calculation  of  will  be 
performed);  then  is  set  to  1.  Further,  if  is  greater  than  or  equal  to  10"^  and  the 

slope  of  the  first  segment  of  terrain,  is  less  than  or  equal  to  lO"^  (i.e.,  terrain  is 

initially  flat  and  non-zero  user  defined  maximum  propagation  angle);  then  the  range  at 
which  the  ray  is  reflected,  ,  is  given  by 


-  tr.tery{l) 

tan(©_) 


(71) 


where  is  the  transmitting  antenna  height  relative  to  the  reference  height  ymmter,  and 
tr.tery{\)  is  the  height  point  of  the  terrain  profile  in  meters.  If  so  determined  is  less 

than  the  range  of  the  second  terrain  point  tr.terx(2),  then  this  case  is  treated  as  if  this  were 
a  smooth  surface  problem.  This  results  in  being  set  to  the  negative  of  and  in  hr, 
being  set  to  -1.  Finally,  the  variables  (last  starting  launch  angle  value),  (last 

maximum  of  local  angle  along  ray),  and  (flag  to  test  whether  or  not  to  stop  loop  used 
to  determine  the  launch  angle)  are  all  set  to  zero. 


A  FORTRAN  DO  WHILE  statement  loop  is  used  to  determine  the  launch  angle 
®iuar,a,  ■  The  loop  is  executed  until  the  variable  has  a  non-zero  value.  A  second, 

nested,  DO  WHILE  loop  is  used  perform  a  ray  trace  of  the  ray  until  the  ray  has  reached 
the  height  limit  for  the  ray  trace,  zii„,  and/or  (90%  of  the  maximum  output  range 
^max)-  The  second  loop  is  executed  until  the  logical  variable  loop  is  false.  Prior  to  the 

first  execution  of  the  second  DO  WHILE  loop,  several  variables  are  initialized  or 
incremented.  First,  is  increased  or  decreased  by  1  milliradian,  depending  on  the  value 
of  .  Then,  the  angle  of  the  ray  before  the  trace  step,  ,  is  set  to  the  value  of  .  The 
variables;  (maximum  of  local  angle  along  ray),  Xq  (range  of  ray  before  trace  step), 

XpE  (range  at  which  valid  loss  values  will  begin  to  be  calculated);  are  all  set  to  zero.  The 
height  of  the  ray  before  the  trace  step,  ,  is  set  equal  to  the  transmitting  antenna  height 
relative  to  the  reference  height  y„i„ter  ■  The  index,  y, ,  of  the  current  refractivity  layer  the 
ray  is  tracing  through  is  set  equal  to  the  index,  ,  of  the  refractivity  array  at  which  the 
antenna  height  is  located.  Finally,  the  logical  variable  loop  is  set  to  true. 
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The  processing  of  the  inner  DO  WHILE  loop  is  as  follows.  First,  grad  is  set  equal 
to  the  gradient  of  the  first  profile  at  j,,  dM{j,)ldh .  Depending  on  the  value  of  a^,  the 

value  of  the  height  of  the  ray  after  the  trace  step,  ,  is  determined  as  follows 
/?,  =  htdum  ( Ji )  for  <  0.0 

h^  =  htdum{ji+\)  for  Oq  >  00  ,  . 

=  htdum  ( Ji )  for  =  0.0  and  grad  <  0.0 

/?,  =  htdum{ji  +  ])  for  a^  =  0.0  and  grad  >  0.0 

If  the  value  of  /z,  so  determined  is  greater  than  ,  then  hy  is  set  equal  to  .  Next,  the 

radical,  rad  is  found  from 


raJ  =  RADAl(oo,^i -/lb)  •  (73) 

If  rad  is  greater  than  0.0,  then  the  angle  of  the  ray  after  the  trace  step,  a, ,  is  given  by 

a,  =  SIGN ( 1.0 , ao )  SQRT {rad)  .  (74) 

If  rad  is  less  than  or  0.0,  then  a,  and  /z,  are  given  by 

a,  =  0.0  (75) 

and 

hy=m{h„ay,a,)  .  (76) 

The  range  of  the  ray  after  the  trace  step,  x, ,  is  given  by 

X,  =  RP(xo,a, -flo)  .  (77) 

If  a,  is  less  than  or  equal  0.0  and  if  /z,  is  less  than  or  equal  htdum{j, ) ,  then 


hy  =  htdum  ( ji ) 

a,  =  -SQRT(RADAl{ao,/z,-/zo}) 

X,  =  RP(xo,a,  -  Oq)  .  (78) 

Ji  =  7/  -  1 

ii  =  1  1/  {Ji  =  0) 
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Else  if  a,  is  greater  to  or  equal  to  0.0  and  if  /z,  is  greater  to  or  equal  to  htdum{jj  +1), 
then 


/Z]  =  htdum  ( 7;  + 1 ) 

a,  =  SQRT(RADA1{oo,;z, -/zo}) 

X,  =  RP(xo,a, -czo)  (79) 

Ji  =  7/  +  1 

Jt  =  Ivlep  if  >  Ivlep) 

where  Ivlep  is  the  number  of  height/reffactivity  levels  in  the  profile.  If  /zj  is  greater  than 

Zfi„,then 


o,  =  SQRT(RADAl{ao,^i -^o})  •  (80) 

X,  =  RP(xo,fl,  -Oq) 

Finally,  in  preparation  for  the  next  trace  step,  the  parameters  a^,  h^,  and  x,,  are  set  equal 
to  a, ,  /z, ,  and  x, ,  respectively.  Further,  if  the  reflected  ray  hits  the  ground  (i.e.,  is  less 
than  or  equal  to  lO"^);  then  is  set  to  the  negative  of  ,  and  Xp^  is  set  to  Xq  . 

Prior  to  end  of  the  inner  DO  WHILE  statement,  several  tests  are  made  to 
determine  if  the  DO  WHILE  should  be  terminated.  First,  if  is  greater  than  tcH  (i.e., 

the  ray  is  vertical),  then  this  SU  is  exited.  The  maximum  of  the  local  angle  along  the  ray 
‘^mxcuri  is  set  to  the  maximum  of  the  current  value  of  a„^i  or  .  If  is  greater  than  or 
equal  to  and  if  Qq  is  greater  than  0.0,  loop  is  set  to  ‘.false.’.  Finally,  if  Xq  is  greater 
than  X;,.„, ,  then  loop  is  false. 

At  this  point  the  iimer  DO  WHILE  loop  begins  the  processing  of  the  next  range 
step  if  loop  is  true. 

If  the  ray  traced  does  not  reach  and  is  not  reflected  within  X;„„ ,  then  the  initial 
launch  angle  is  increased  by  1  milliradian  and  the  ray  trace  is  repeated  in  the  outer  DO 
WHILE  loop.  The  precise  test  used  is  given  by 

het  =  1  (/■  ({'o  ^  ^z,m}  and  [XpE  >  0.0})  .  (81) 
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If  this  criteria  is  met,  then  it  is  necessary  to  make  sure  the  local  maximum  angle,  ,  is 
just  Avithin  the  user  specified  angle,  (if  is  non-zero).  First,  for  the  terrain  case, 
if  Pangie  IS  greater  than  10'^;  then  is  set  initially  to  1.  If  is  greater  than 
is  set  to  0.  If  is  less  than  or  equal  to  the  angle  above  which  no  rays  are  trapped, 
plus  10'^,  then  4^,  is  set  to  1  (i.e.,  the  launch  angle  is  not  allowed  to  be  less  than  a^,).  If 
p^^i^  is  less  than  or  equal  to  10'®,  then 

(1)  if  (Xo  and  {h^  4,,  is  set  to  1  and 

(2)  if  equals  1  then 

0.„=AMAXi(ABSK,<;_.})  .  (82) 

Second,  for  the  smooth  earth  case,  if  p^„g;^  is  greater  than  lO"^  and  if  equals 
one;  then  a  temporary  variable  a  is  determined  by 

<J=AMAXl(ABS{a.},a„,)  .  (83) 

If  a  is  less  than  4^,  is  set  to  zero.  If  a  is  greater  or  equal  to  p^„g^  and  if  a^,  is  not 

equal  to  zero,  then 

(84) 

a^cur  = 

Just  as  a  safeguard,  the  absolute  maximum  launch  angle  is  set  to  fifteen  degrees. 
That  is,  if  is  less  than  or  equal  to  -15° ,  then  4^,  is  set  to  1,  is  set  to  -15°  in  radians, 
and  is  set  to  15°  in  radians. 

Before  the  end  of  the  outer  DO  WHILE  loop,  a^i  is  set  to  and  is  set  to 

^mxcurl  ’ 


After  the  outer  DO  WHILE  loop,  a  test  is  made  to  determine  if  the  case  is  smooth 
earth.  If  it  is  then, 

0.„  =  AMAXl(ABS{a,}.a_)  .  (85) 

Plus  is  set  to  the  absolute  value  of  a^. 
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Table  5-7  and  Table  5-8  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  TRACEA  SU. 
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Table  5-7  TRACEA  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

Ocrit 

Critical  angle,  angle  above  which  no 
rays  are  trapped  for  ducting 
environment 

radians 

CALLING  SU 

Transmitting  antenna  height  relative 
to  tlie  reference  height 

radians 

CALLING  SU 

Gradient  of  first  profile  at  j) 

M-units 

/meter 

CALLING  SU 

fter 

Logical  flag  representing  terrain 

N/A 

CALLING  SU 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

meters 

CALLING  SU 

Jls 

Index  of  tlie  refractivity  array  at 
which  the  antenna  height  is  located 

N/A 

CALLING  SU 

Ivlep 

Number  of  height/refractivity  levels 
in  profile 

N/A 

CALLING  SU 

mxlvls 

Maximum  number  of  height/M-unit 
levels 

N/A 

TPEM.INC 

mxter 

Maximum  number  of  height/range 
points  allowed  for  terrain  profile 

N/A 

TPEM.INC 

Pangle 

User  specified  propagation  angle 

radians 

CALLING  SU 

sip 

Slope  of  each  segment  of  terrain 

meters/ 

meter 

calling  SU 

mccc 

Maximum  propagation  angle  in  PE 
calculations 

radians 

CALLING  SU 

tr 

Terrain  structure  for  external  terrain 
data  elements 

N/A 

TPEM.INC 

tr.terx 

Range  points  of  terrain  profile 

meters 

TPEM.INC 

tr.tery 

Height  points  of  tlie  terrain  profile 

meters 

TPEM.INC 

^lim 

90%  of  tlie  maximum  range,  , 

used  for  ray  tracing 

meters 

CALLING  SU 

^PB 

Range  at  which  valid  loss  values  will 
begin  to  be  calculated 

meters 

CALLING  SU 

^lim 

Height  limit  for  ray  trace 

meters 

CALLING  SU 

Table  5-8  TRACEA  SU  Output  Data  Element  Requirements 


Name 

Description 

Source 

0 

^launch 

Launch  angle 

radians 

TRACEA  SU 

Maximum  propagation  angle  in  PE 
calculations 

radians 

TRACEA  SU 
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5.1.4  Dielectric  Initialization  (DIEINIT)  SU 


The  purpose  of  the  DIEINIT  SU  is  to  determine  the  conductivity  and  relative 
permittivity  as  a  function  of  frequency  in  MHz  based  on  general  ground  composition 
types. 


It  supports  the  ground  types:  salt  water,  fresh  water,  wet  ground,  medium  dry 
ground,  very  dry  ground,  and  user  defined.  For  all  ground  types  other  than  user  defined, 
the  permittivity  and  conductivity  are  calculated  as  functions  of  frequency  from  curve  fits 
to  the  permittivity  and  conductivity  graphs  shown  in  the  Recommendations  and  Reports  of 
the  International  Radio  Consultative  Committee  (CCIR,  1986).  For  tr.  input  ground 

types  cases  tr.igmd(i),  the  permittivity  and  conductivity  are  determined  as  follows.. 

For  salt  water  (case  0),  the  relative  permittivity  is  given  by  70  for  frequencies 
<  2253.5895  MHz;  and  the  conductivity  is  given  by  5.0  S/m  for  <  1106.207 . 

For  >  2253.5895  MHz,  the  relative  permittivity  is  given  by 

’1.4114535*10-'  -5.2122497*10"Va^z  +5-8547829*10-”/:57/.T' 

=  •  (86) 

[-7.6717423*  10-' Viffz  +2.9856318  *  10-''/j^, 

For  >  1106.207  MHz,  the  conductivity  a  in  S/m  is  given  by 

_ 3.8586749  +  9.1253873  * + 1.530992  *  IQ-y^, _ 

1.-2.1 179295  *  10-V^,  +  6.5727504  *  10-’"/^,  - 1.9647664  *  10-' 

For  fresh  water  (case  1),  the  relative  permittivity  is  given  by  80  for  frequencies 
fMHz  ^6165.776  MHz.  For  higher  frequencies,  is  given  by 


^  79.027635-3.5486605*10^/^,  +8.210184*  IQ-y^, 

1.-2.2083308  *  IO-^a^z  +  2.7067836  *  lO-^^z  '  1-0007669  *  10-' Vj^z 

For  >  5776.157  MHz,  the  conductivity  a  in  S/m  is  given  by 


0.6575035 1  +  6.61 13 198  *10-Vj^^,  +1.4876952  *10-Vj^,Y 
.  1+5.5620223  *  lO'V^,  +  3.0140816  *  lO"' Vj^z 


(89) 
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At  <  5776.157  MHz,  the  conductivity  cr  in  S/m  is  given  by 


201.97103  + 1,2197967  *  10'^^,  - 1.728776  * 

I  1.-2.5539582  *10-Va^.- 3.7853  169*10Vj^,  )  '  ^  ^ 

For  wet  ground  (case  2),  the  relative  permittivity  is  given  by  30  for  frequencies 
/jiffli  -  1312.054  MHz.  For  frequencies  1312.054  <  <4228.11  MHz,  the  relative 

permittivity  is  given  by 


857.94335  +  5.5275278  *  10-Vjwff. 

1.-8.9983662  *  10“Vjwf/z  +  8.8247139  *  10“Vj^. 

For  frequencies  >  4228.1 1  MHz,  the  relative  permittivity  is  given  by 


(91) 


915.3 1026  -  4.034821 1  *  10'^^^,  +  7.4342897  *  10~Vj 
“  y  1.-9.4530022  * +  4.892281  *  10'* /j 


2 

h/IHz 


(92) 


'MHz 


For  frequencies  >  15454.4  IVIHz,  the  conductivity  cr  in  S/m  for  wet  ground  is  given 
by 


a  =  0.8756665  +  4.7236085  *  IO^Vm/z  +  2.605 1966  *  IO^Vj^z 

-  9.235936  *  lO'' Vj^z  + 1.4560078  *  lO"' V)^z  •  (93) 

-  1.1 129348  *  10-^V(5(/z  +  3.3253339  *  lO'^Vj^z 

For  frequencies  <  15454.4  MHz,  the  conductivity  a  in  S/m  for  wet  ground  is  given 
by 


o-  =  5.5990969  *  lO"'  +  8.7798277  *  IO^Va^wz  +  6.2451017  *  10"* /wz 

-7.13 17207  no-‘V)^z  +4.2515914*10-'V)^z  •  (94) 

- 1.240806  *  10-^Vj5?.z  + 1-3854354  *  lO'^Vi^z 

For  medium  dry  ground  (case  3),  the  relative  permittivity  is  given  by  15  for 
frequencies  <  4841.945  MHz.  For  frequencies  >  4841.945  MHz,  the  relative 
permittivity  is  given  by 
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1215.87521  -  2.6151055  *  lO’Vwz  + 1-9484482  *  lO'Vj 


2 

MH2 


1.-7.6649237  *  lO'Vjwff.  + 1.2565999  *  10"*/ 


-8 


(95) 


MHz 


At  frequencies  <  4946.751  MHz  for  medium  dry  ground,  the  conductivity  cr  in  S/m 
is  given  by 


a  =  (2.4625032  *  10'"  + 1.8254018  *  10^/^,  -  2.664754  *  10"*/ 


MHz 


(96) 


+  7.6508732  *  10"‘ -  7.4193268  *  10"' 

At  frequencies  >  4946.751  MHz  for  medium  dry  ground,  the  conductivity  a  in  S/m 
is  given  by 


(97) 


o-  =  (0.17381269  + 1.2655183  *  10"^/^^  - 1.6790756*  10" Vw. 

+ 1.1037608  *  10"' -  2.9223433  *  10"^“/^.)' 

For  very  dry  ground  (case  4),  the  relative  permittivity  is  given  by  3  and  the 
conductivity  cr  in  S/m  is  0.0001  for  frequencies  <590.8924  MHz.  For  frequencies 
590.8924  <  <  7131.933  MHz,  the  conductivity  cr  in  S/m  is  given  by 


o-  =  2.2953743  *  10"^  -  8.1212741  *  10"Vm/.  + 1.8045461  *  10"Vj^. 

-  1.960677*  10"' +1.256959  *10"' -  4.46811*  10"' 

+  9.4623 158  *  10""Vj^z  “  11787443  *  10"""/^?^  +  7.9254217  *  10""/^,  ^  ^ 

-  2.2088286  *10"^Vj^z 

For  frequencies  >  7131.933  MHz,  the  conductivity  a  in  S/m  is  given  by 

o-  =  (-4.9560275  *  10"^  +  2.9876572  *  10"Vjww,  -  3.0561848  *  10"'Vj5?r. 

+  1.1 13 1828*  10"' 

For  the  user  defined  ground  type  (case  5),  the  relative  permittivity  and  the 
conductivity  cr  in  S/m  are  set  equal  to  the  input  values  tr.dielect(l,i)  and  tr.dielect(2,i), 
respectively. 

Finally,  the  dielectric  constants  at  a  range  of  1*10’  km,  are  set  to  the  values  last 
determined  for  the  tr.igr*^  case,  tr.igr  is  increased  by  1,  and  the  range  at  which  these 
dielectric  constants  apply  is  stored  in  the  (/r./^r+l)*  position  of  tr.rgmd. 
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Table  5-9  and  Table  5-10  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  DIEINIT  SU. 


Table  5-9  DIEIISIIT  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

fmiz 

Frequency 

MHz 

TPRM.INC 

sv 

System  structure  for  external  system 
data  elements 

N/A 

TPEM.INC 

tr 

Terrain  structure  for  external  terrain 
data  elements 

N/A 

TPEM.INC  SU 

tr. dielec 

2“dimensional  array  containing  the 
relative  permittivity  and  conductivity 
for  user  defined  terrain 

a 

TPEM.INC 

tr.i^r 

Number  of  different  ground  types 
specified 

N/A 

TPEM.INC 

tr.igrnd 

Type  of  ground  composition  for 
given  terrain  profile 

N/A 

TPEM.INC 

conductivity  has  units  of  S/m. 


Table  5-10  DIEINIT  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

trJ 

gr 

Number  of  different  ground  types 
specified 

N/A 

DIEINIT  SU 

tr. dielec 

2-dimensional  array  containing  the 
relative  permittivity  and 
conductivity  “  for  user  defined 
terrain 

N/A 

DIEINIT  SU 

tr.rgrnd 

Ranges  at  which  the  ground  types 

. mh _ 

meters 

DIEINTT  SU 

conductivity  has  units  of  S/m. 
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5.1.5  Get  FFT  Size  (GETFFTSZ)  SU 


The  purpose  of  the  GETFFTSZ  SU  is  to  determine  the  required  transform  size,  n, 
based  on  the  maximum  PE  propagation  angle  and  the  specified  maximum  output  height.  If 
the  transform  size  required  is  greater  than  the  maximum  allowed,  then  the  maximum  PE 
height  calculation  volume  is  calculated  based  on  the  maximum  allowable  transform  size. 
Propagation  loss  is  provided  only  up  to  the  maximum  PE  calculation  height  or  the 
specified  maximum  output  height,  whichever  is  smaller. 

First,  some  constants  used  within  the  PE  solution  are  initialized.  The  bin  width  in 
z  space  is  given  in  terms  of  the  PE  calculation  maximum  propagation  angle,  0^^ ,  and 

wavelength,  X ,  by 


^PE 


X 

2 SIN ■ 


(100) 


The  total  number  of  vertical  points  for  which  a  transformation  will  be  computed,  n^f,  is 

In  ^ 

determined  as  2  .  This  term  is  also  referred  to  as  the  FFT  size.  The  minimum  size  for 

the  parameter  In^  is  set  to  9  for  smooth  surfaces  and  10  for  terrain  cases.  The  total 

height  of  the  PE  calculation  domain,  ,  is  initialized  as 


hZp^  .  (101) 

For  computational  efficiency  reasons,  an  artificial  upper  boundary  must  be 
established  for  the  PE  solution.  To  prevent  upward  propagating  energy  from  being 
"reflected"  downward  fi’om  this  boundary  and  contaminating  the  PE  solution,  the  upper 
one  quarter  of  the  PE  solution  field  strength  is  attenuated  or  "filtered"  to  insure  that  the 
field  strength  just  below  the  upper  boundary  is  reduced  to  zero.  An  iteration  using 

equations  102-104  is  repeated  until  height  zimu,  the  maximum  height  region  where  the  PE 

3z 

solution  is  valid,  satisfies  — —  >  z,^^, .  The  parameters  In^ ,  rijji,  and  z^  are  given  by 


II 

(102) 

n  -  2^^ 

(103) 
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^max  ~  ^PE  • 

(104) 

If  the  transform  size  needed  is  too  large  (i.e., 

are  set  accordingly  as  follows 

>  14),  then  2^,  and 

In^  =  mxnfft 

(105) 

n  =  2^^ 

(106) 

(107) 

3 

^Umit  -  4  • 

(108) 

Table  5-11  and  Table  5-12  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element  respectively  of  the 
GETFFTSZ  SU. 


Table  5-1 1  GETFFTSZ  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

fter 

Logical  flag  indicating  a  terrain  case 
is  being  performed 

N/A 

PEINIT  CSC 

X 

Wave  length 

meters 

PEINIT  CSC 

mxnfft 

Maximum  power  of  2  for  transform 
size 

N/A 

FFTSIZ.INC 

0 

max 

Maximum  propagation  angle  in  PE 
calculations 

radians 

PEINIT  CSC 

Maximum  height  region  where  PE 
solution  is  valid 

meters 

Calling  SU 

Table  5-12  GETFFTSZ  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

^PE 

Bin  width  in  z  space 

meters 

GETFFTSZ  SU 

K 

Power  of  2  transform  size,  i.e. 

N/A 

GETFFTSZ  SU 

Transform  size 

N/A 

GETFFTSZ  SU 

^  limit 

Maximum  height  region  where  PE 
solution  is  valid 

meters 

GETFFTSZ  SU 

^max 

Total  height  of  the  FFT/PE 
calculation  domain 

meters 

GETFFTSZ  SU 
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5.1.6  Starter  Field  Initialization  (XYINIT)  SU 

The  purpose  of  the  XYINIT  SU  is  to  calculate  the  complex  PE  solution  at  range 

zero. 


Upon  entering  this  SU,  several  constant  terms  which  will  be  employed  over  the 
entire  PE  mesh  are  calculated.  The  PE  mesh  is  defined  by  the  number  of  points  in  the 
mesh,  riff,,  and  by  the  mesh  size  /Sp .  The  constant  terms  include  ;  (1)  the  angle  difference 

between  mesh  points  in  p-space  A0 ;  (2)  a  height-gain  value  at  the  source  (transmitter) 

;  (3)  the  normalization  factor  used  in  the  determination  of  the  complex  array 

containing  the  field  t/;  (4)  the  default  value  of  the  complex  reflection  coefficient  refcoef 
and  (5)  the  complex  index  of  refraction  for  the  vertical  polarization  case.  The  complex 
index  of  refraction  for  vertical  polarization  {sv.polar  =  ‘V’)  is  obtained  from  reference  to 

the  GETALN  SU  for  the  terrain  structure  tr.  The  parameter  used  as  the  result  of  this 
reference  is  the  complex  refractive  index  squared  ■  The  complex  reflection  coefficient 

refcoef  \s  given  by 


refcoef  =  CMPLX  (  -  1. ,  0. )  . 
The  normalization  factor  is  given  by 


gcon 


sqrt(i) 

^max 

The  angle  difference  between  mesh  points  in  p-space,  A0 ,  is  given  by 


(109) 


(110) 


(111) 


where  is  the  free  space  wave  number.  The  height-gain  value  at  the  source  (transmitter) 
is  given  by 


ant. 


h 


transmitter 


(112) 


where  h^^nsmitier  is  the  transmitting  antenna  height  above  the  local  ground  in  meters. 
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For  each  point  in  the  PE  p-space  mesh  (i.e.,  /=0,  the  following  steps  are 
performed.  The  direct-path  ray  elevation  angle  is  determined  from 

=  FLOAT  (/)  A0  .  (113) 

The  antenna  pattern  ANTPAT  SU  is  referenced  with  the  antenna  pattern  type,  ip^ ,  and 
the  elevation  angle  (negative  value  for  the  surface-reflected  ray)  to  obtain  antenna 
pattern  factors,  fac^^  and  fac^ ,  for  both  a  direct-path  ray  and  a  surface-reflected  ray, 
respectively.  For  vertical  polarization  (sv.polar  =  ‘V’)  the  complex  surface  reflection 
coefficient  is  determined  with  the  grazing  angle  equal  to  the  negative  of  the  reflected  ray 

angle,  or  in  this  case,  the  direct-path  ray  elevation  angle.  For  the  complex  refractive  index 
squared,  previously  obtained  from  the  reference  to  GELATIN  SU  above,  the 

reflection  coefficient  refcoefis  given  by 


refcoef  -  M  -  CSCjKT  (k.,  -  COSy,}) 

R„^2STN{p,)  +  csqki(r„^2  -  COS^lP.}) 

The  complex  portions  of  the  PE  solution  U  are  determined  from  the  antenna  pattern 
factors,  reflection  coefficient,  elevation  angle,  and  normalization  factor  from 

U(j)  =  A.™  +  refcoef  fac^  R^^)  (115) 

where  the  field,  R^^^,  due  to  an  image  point  source  at  the  height  -h^ansmitter  given  by 

=  CMPLx(cOs{p,anr,_}.SIN{ftan/,_})  (116) 

and  where  the  field,  ,  due  to  a  real  point  source  at  the  height  given  by 

=  conjg(i?„„)  .  (117) 

Finally,  the  upper  %  of  the  field  values  are  filtered.  A  cosine  -tapered  (Tukey) 
filter  array  FILT is  used  for  this  purpose.  For  =  riy  to  ,  the  field  U(i)  is  given  by 


(118) 
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where  n 


% 


is  equal  to  %  of  . 


Table  5-13  and  Table  5-14  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  XYINIT  SU. 


Table  5-13  XYINIT  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

N? 

Mesh  size  in  angle-  (or  p-)  space 

radians 

PEINIT  CSC 

FILT 

Cosine-tapered  (Tukey)  filter  array 

PEINIT  CSC  SU 

h 

transmitter 

Transmitting  antenna  height  above 
the  local  ground 

meters 

TPEM.INC 

^  pat 

Type  of  antenna  pattern  desired 

N/A 

TPEM.INC 

K 

Free-space  wave  number  =  271 !  X 

meters’^ 

PEINIT  CSC 

Wavelength 

meters 

PEINIT  CSC 

maxn4 

maxpts  divided  by  4;  specifies  the 
length  of  the  filter  array 

N/A 

TPEM.INC 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginaiy  fields 

N/A 

FFTSIZ.INC 

"fft 

Transform  size 

N/A 

GETFFTSZ  SU 

Va  of 

N/A 

PEINIT  CSC  SU 

^ngl 

Complex  refractive  index  squared 

N/A 

GETALN  SU 

SV 

System  structure  for  external  system 
data  elements 

N/A 

TPEM.INC 

sv.polar 

Character  string  indicating 
polarization 

N/A 

TPEM.INC 

tr 

Terrain  structure  for  external  terrain 
data  elements 

N/A 

TPEM.INC 

^max 

Total  height  of  the  FFT/PE 
calculation  domain 

meters 

GETTFFTSZ  SU 

Table  5-14  XYINIT  SU  Output  Data  Element  Requirements 

Name _ Description  Units _ Source 

t/ _ Transform  of  complex  field _ XYINIT  SU 
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5.1.7  Fast-Fourier  Transform  (FFT)  SU 


The  purpose  of  the  FFT  SU  is  to  separate  the  real  and  imaginary  components  of 
the  complex  PE  field,  respectively,  into  two  real  arrays  and  then  to  reference  the  SINFFT 
SU  which  transforms  each  portion  of  the  PE  solution. 

For  a  transform  size,  rijji,  the  real  and  imaginary  parts  of  the  complex  PE  field 
array  U,  respectively,  are  found  for  the  index  i  from  0  to 


^(/)  =  REAL  ([/{/})  (119) 

and 

7(/)  =  IMAG  (120) 


The  transform  size,  njj-p  is  constrained  to  be  less  than  or  equal  to  2"*  .  The  SINFFT  SU  is 
referenced  in  turn  for  X  and  Y  along  with  In^ ,  the  power  of  the  transform  size  to  the 


base  2 


n 


ffl 


.  The  real  and  imaginary  parts  of  the  resulting  transform  arrays. 


X  and  Y,  are  then  converted  to  the  imaginary  array  U  for  /  equal  0  to  rijj^  by 


V{i)  =  CMPLX  (y{/},  7{/})  .  (121) 

Table  5-15  and  Table  5-16  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  FFT  SU. 
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Table  5-15  FFT  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

ffi 

Power  of  2  transform  size,  i.e. 
n=2**ln 

N/A 

GEI  FFI  SZ  SU 

mcDcpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

N/A 

FFTSIZ.INC 

r'fft 

Transform  size 

N/A 

GETFFTSZ  SU 

U 

Complex  field  to  be  transformed 

/jV  I  m 

Calling  SU 

Table  5-16  FFT  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

u 

Transform  of  complex  field 

fxV  /  m 

FFTSU 
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5.1.8  Sine  Fast-Fourier  Transform  (SINFFT)  SU 


A  function  with  a  common  period,  such  as  a  solution  to  the  wave  equation,  may  be 
represented  by  a  series  consisting  of  sines  and  cosines.  This  representation  is  known  as  a 
Fourier  series.  An  analytical  transformation  of  the  function,  known  as  a  Fourier 
transform,  may  be  used  to  obtain  a  solution  for  the  function. 

The  solution  to  the  PE  approximation  to  Maxwell's  wave  equation  is  obtained  by 
using  such  a  Fourier  transformation  function.  The  TPEM  CSCI  uses  only  the  real-valued 
sine  transformation  in  which  the  real  and  imaginary  parts  of  the  PE  equation  are 
transformed  separately.  The  Fourier  transformation  provided  with  the  TPEM  CSCI  is 
described  by  Bergland  (1969)  and  Cooley  (1970).  The  FORTRAN  source  code  is  listed  in 
APPENDIX  A. 

Other  sine  fast  Fourier  transform  (FFT)  routines  are  available  in  the  commercial 
market,  and  such  a  sine  FFT  may  already  be  available  within  another  TESS  CSCI.  The 
selection  of  which  FFT  ultimately  used  by  the  TPEM  CSCI  is  left  to  the  application 
designer  as  every  sine  FFT  will  have  hardware  and/or  software  performance  impacts.  For 
this  reason,  it  is  beyond  the  scope  of  this  document  to  describe  the  numerical 
implementation  of  the  FFT  algorithm. 

Table  5-17  and  Table  5-18  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  SINFFT  SU. 


Table  5-17  SINFFT  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

Transform  size 

N/A 

GETFFTSZ  SU 

u 

Complex  field  to  be  transformed 

FFTSU 

dimensioned  2”-^  in  calling  SU 

Table  5-18  SINFFT  Output  Data  Element  Requirements 

Name _ Description _ Units _ Source 

C/ _ Sine  transform  of  complex  field _ SINhb  1  SU 
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5.1.9  Trace  Launch  Angle  (TRACEH)  SU 


The  purpose  of  the  TRACEH  SU  is  to  perform  a  ray  trace  for  a  single  ray  and 
store  all  heights  traced  to  each  output  range  step.  The  initial  launch  angle  is  the  negative 
of  the  input  launch  angle  for  a  smooth  surface.  For  the  terrain  case,  the  initial 

launch  angle  is  ^uamch  •  Upon  reflection  the  heights  of  this  ray  at  each  output  range  point 
are  then  stored  in  array  for  subsequent  output  of  loss  values  in  array  mloss.  This 
is  done  so  that  only  loss  values  that  fall  within  the  valid  PE  solution  region  are  output  or 
passed  back  in  mloss. 


First,  the  following  internal  functions  are  defined. 


RADAl(a,  6)  = 
RP  (a,  =  a  + 

AP  (a,  =  a  + 

HP  (a,  b,c)  =  a 


+  2  grad  b 
a 

grad 

b  grad 

b^  -c^ 

2  grad 


(122) 

(123) 

(124) 

(125) 


Initially,  several  constants  are  set.  The  internal  variable  for  the  starting  launch 
angle,  a^ ,  is  set  to  the  negative  of  the  input  launch  angle,  0^,^*  •  If  this  case  is  a  terrain 
case,  then  a,,  is  set  to  0ja„„d,  •  The  height  of  the  ray  before  the  trace  step  is  set  equal  to 
ant^^ ,  the  transmitting  antenna  height  relative  to  the  reference  height  •  The  index 

of  the  current  refi'activity  layer  for  which  the  ray  is  being  traced  through,  y, ,  is  set  equal 
to  y'jj .  the  index  of  the  refi’activity  array  for  which  the  antenna  height  is  located.  The 
current  output  range  at  which  to  store  the  height  of  traced  ray  in  yim,  ,  is  set  equal  to 
the  output  range  step.  The  variables  ,  the  range  index  at  which  the  traced  ray  has 
reached  the  maximum  calculation  height;  ,  the  range  of  the  ray  before  the  trace  step; 
and  Xpjg.,  the  range  at  which  valid  loss  values  will  begin  to  be  calculated,  are  all  set  to 
zero. 


A  FORTRAN  DO  loop  is  used  to  trace  the  ray  output  points.  The  index  for  the 
loop  /■  goes  from  1  through  nvrout. 
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Within  this  loop  a  FORTRAN  DO  WHILE  loop  is  used  to  trace  the  ray  until  it 
reaches  the  output  range  point  (i.e.,  is  greater  or  equal  to  x„).  The  computation 

within  this  nested  loop  is  as  follows.  First,  the  range  of  the  ray  after  the  trace  step,  Xi,  is 
set  equal  to  x^ .  Then,  the  variable  grad,  the  gradient  of  the  current  refractivity  layer,  is 

set  equal  to  d  Mijj^jdh,  the  gradient  of  the  first  profile  at  index  .  The  value  of  the 
angle  after  the  trace  step,  a, ,  is  found  from 


a,  =  HP(ao,x,  -Xo)  .  (126) 

If  SIGN  ( 1.0,  )  is  not  equal  to  SIGN  (l.O,  a,  ),  then  and  x, ,  respectively,  are  given 

by 


a,  =  0.0 

and 


(127) 


X,  =  Rp(x,,a|  -  a, )  .  (128) 

The  height  of  the  ray  after  the  trace  step,  /?, ,  is  given  by 

h,  =  .  (129) 

If  a,  is  less  than  or  equal  0.0  and  if  /?,  is  less  than  or  equal  htdum  (y)  ),  then 

=  htdum  (  ji  ) 

a,  =  -SQRt(rADA1  [a^,  /i,  -  \  }) 

X]  =  RP(xo,a,  -  ao)  .  (130) 

J,  =  y'/  -  1 

j,  =  1  if  (y,  =  o) 

Else  if  a,  is  greater  than  or  equal  to  0.0  and  if  A,  is  greater  than  or  equal  to 
htdum  (  y";  +  1 ) ,  then 
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/?,  =  htdum  ( 7^  +  1 ) 

a,  =  SQRT(RADAl{ao,/7, -//o}) 

Xj  =  RP(xo,ai  -aj  (131) 

Ji  =  7/  +  1 

ji  =  Ivlep  if  (j,  >  /v/e/?) 

where  Ivlep  is  the  number  of  height/reffactivity  levels  in  the  profile.  If  x,  is  greater  than 
Xg ,  then  the  values  of  x, ,  a, ,  and  /z,  are  given  by 

a,  =  AP(ao,x,  -xj  .  (132) 

h,  =  HP(^o,ai,«o) 

The  values  of  x,, ,  a^,  and  are  then  set  equal  to  the  respective  values  of  x, ,  aj ,  and  A, 
so  determined.  Further,  if  the  reflected  ray  hits  the  ground  (i.e.,  is  less  than  or  equal  to 
lO"^);  then  is  set  to  the  negative  of  ,  and  Xp^  is  set  to  x^ .  If  the  ray  traced  reaches 
the  height  limit  for  ray  tracing,  z^.^ ,  then  all  heights  for  this  ray  for  subsequent  output 
range  points  will  also  be  Zj.^ .  In  this  case  the  index  is  set  equal  to  i  and  TRACEH  SU 
is  exited  ending  the  DO  WHILE  loop. 

Within  the  DO  loop  itself,  final  processing  of  the  loop  occurs.  First,  a  test  is  made 
to  determine  whether  is  greater  than  zero.  If  it  is,  then  the  TRACEH  SU  is  exited.  If 
it  is  not,  then  a  test  is  made  to  determine  if  is  less  than  zero.  If  it  is  then  yumO)  is  set 
equal  to  zero.  Further,  if  is  greater  or  equal  to  zero,  then  yumO)  is  set  equal  to  . 
Finally,  x^  is  incremented  by  the  value  of  Ax^- 

After  the  DO  loop  has  been  exited,  a  test  is  made  to  determine  if  is  greater  than 

zero.  If  it  is,  then  the  elements  of  yum  are  set  equal  to  htlim  for  values  of  the  index  i 
running  from  to  nvrout. 

Table  5-19  and  Table  5-20  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  TRACEH  SU. 
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Table  5-19  TRACEH  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

ant^^ 

Transmitting  antenna  height  relative 
to  the  reference  height 

meters 

Calling  SU 

dM{  )ldh 

Gradients  of  first  profile 

M-units/ 

meter 

Calling  SU 

Output  range  step 

meters 

Calling  SU 

fter 

Logical  flag  indicating  if  performing 
terrain  case 

N/A 

Calling  SU 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

meters 

Calling  SU 

htlim 

Maximum  desired  calculation  height 
with  respect  to 

meters 

CSC  PEINTT 

Jls 

Index  of  the  refractivity  array  at 
which  the  antenna  height  is  located 

N/A 

Calling  SU 

Ivlep 

Number  of  height/refractivity  levels 
in  profile 

N/A 

Calling  SU 

mxlvls 

Maximmn  number  of  height/M-unit 
levels 

N/A 

TPEM.INC 

mxrout 

Maximum  number  of  output  range 
points 

N/A 

TPEM.INC 

nvrout 

Number  of  output  range  points 

N/A 

TPEM.1NC 

^launch 

Launch  angle 

radians 

Calling  SU 

90%  of  the  maximum  range, 

meters 

CSC  PEINTT 

^lim 

Height  limit  for  ray  trace 

meters 

CSC  PEINTT 

Table  5-20  TRACEH  SU  Output  Data  Element  Requirements 


Name _ Description _ Units _ Source 


^PE 

Range  at  which  valid  loss  values  will  meters 
begin  to  be  calculated 

TRACEA  SU 

yiim 

Height  at  each  output  range  at  which  meters 
the  last  valid  loss  value  exists 

TRACEH  SU 
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5.1.10  Free-Space  Propagator  Phase  Term  (PHASEl)  SU 


The  puq30se  of  the  PHASEl  SU  is  to  initialize  the  ffee-space  propagator  array  for 
subsequent  use  in  the  PESTEP  CSC.  The  propagator  term  is  computed  at  each  PE  angle, 
or  p-space,  mesh  point  using  the  wide-angle  propagator.  Finally,  a  filter,  or  attenuation 
function  (fi-equently  called  “window”),  is  applied  to  the  upper  one-quarter  of  the  array 
corresponding  to  the  highest  one-quarter  of  the  maximum  propagation  angle. 

For  vales  of  the  index  i  running  from  0  to  n^,  the  complex  array  containing  the 
free-space  propagator  terms  frspQ)  is  given  by 

frspd)  =  CMPLX  (  COS  {  Ar^  [  1.0  -  ] },  -  SIN  {  Ar,.  [  1.0  -  ] }  )  (133) 

where  ^  double  precision  variable,  are  given,  respectively,  by 


=  K^pe 
and 


(134) 


=  SQRt(  1.0 -AMIN l{  1.0, [c«5/*FL0AT(/)f  })  .  (135) 

The  upper  %  of  the  ffee-space  propagator  temi,^.!5P,  is  filtered  by  a  cosine-tapered 
(Tukey)  filter  array,  FILT.  For  values  of  /  running  from  riy  to  is  given  by 

fi-sp{i)  =  FILli^i-ny^  frsp{i)  .  (136) 

Table  5-21  and  Table  5-22  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  PHASEl  SU. 
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Table  5-21  PHASE  1  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

cnst 

Constant  equals 

radians  * 
meters 

PEINIT  CSC 

PE  range  step 

meters 

Calling  SU 

FILT 

Cosine-tapered  (Tukey)  filter  array 

PEINIT  CSC 

f 

J  norm 

Normalization  factor 

N/A 

PEINIT  CSC 

K 

Free-space  wave  number  =  2;r/  X 

meters’ 

PEINIT  CSC 

maxn4 

maxpts  divided  by  4;  specifies  the 
length  of  the  filter  array 

N/A 

TPEM.INC 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

N/A 

TPEM.INC 

Transform  size 

N/A 

GETFFTSZ  SU 

Va  of 

N/A 

PEINIT  CSC  SU 

Table  5-22  PHASE  1  SU  Output  Data  Element  Requirements 


Name 

Description  Units 

Source 

frsp 

Complex  free  space  propagator  term  N/A 
array 

PHASEI  SU 
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5.1.11  Environmental  Propagator  Phase  Term  (PHASE2)  SU 


The  purpose  of  the  PHASE2  SU  is  to  calculate  the  environmental  phase  term  for 
an  interpolated  environment  profile.  This  environmental  phase  term  is  computed  at  each 
PE  height,  or  z-space,  mesh  point.  Finally,  a  filter,  or  attenuation  function  (frequently 
called  “window”),  is  applied  to  the  upper  one-quarter  of  the  array  corresponding  to  the 
highest  one-quarter  of  the  calculation  height  domain. 

For  values  of  the  index  i  running  from  0  to  n^,  the  complex  array  containing  the 
refractivity  profile  array  interpolated  every  in  height  is  given  by 

=  CMPLX ( COS  {  Axp£.  SIN  {  prqfint[i'\]^  .  (137) 

The  upper  14  of  the  envpr  array  is  filtered  by  a  cosine-tapered  (Tukey)  filter  array, 
FILT.  For  values  of  i  running  from  riy  to  ,  envpr{i)  is  given  by 


envpri^i^  =  FILll^i  -  nyj  envpr{i^  .  (138) 

Table  5-23  and  Table  5-24  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  PHASE2  SU. 
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Table  5-23  PHASE2  SU  Input  Data  Elements  Requirements 


Name 

Description 

Units 

Source 

PE  range  step 

meters 

Calling  SU 

FILT 

Cosine-tapered  (Tukey)  filter  array 

PEINIT  CSC 

maxn4 

maxpts  divided  by  4;  specifies  the 
length  of  the  filter  array 

N/A 

TPEM.INC 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

N/A 

TPEM.INC 

Transform  size 

N/A 

GETFFTSZ  SU 

3/4  of 

N/A 

PEINIT  CSC  SU 

profmt 

Profile  interpolated  to  every 
in  height 

M-units 

Calling  SU 

Table  5-24  PHASE2  SU  Output  Data  Element  Requirements 


Name  Description 

Units 

Source 

envpr  Complex  refractivity  profile  array 

M-units 

PHASE2  SU 

interpolated  eveiy  in  height 
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5.1.12  Profile  Reference  (PROFREF)  SU 


The  purpose  of  the  PROFREF  SU  is  to  adjust  the  current  reffactivity  profile  so 
that  it  is  relative  to  a  reference  height,  .  The  reference  height  is  initially  the  minimum 

height  of  the  terrain  profile.  Upon  subsequent  calls  fi'om  the  PESTEP  CSC,  the 
refi'activity  profile  is  adjusted  by  the  local  ground  height  at  each  PE  range  step. 

The  reference  height  itself,  depending  on  the  value  of  can  be  either 
Jminter  ground  height  above  ^jiag  zero,  then  the  profile  arrays 

and  will  be  relative  to  and  will  also  be  used  to  initialize  refdum  and 

htdum  .  If  is  one,  then  the  profile  arrays  ref^  and  will  be  referenced  to  local 
ground  height.  The  parameter  is  the  reference  height  for  internal  calculations  in  the 
TPEM  CSCI  of  the  complex  field  U.  Both  the  arrays  refdum  and  htdum,  are  dummy 
arrays  containing  reffactivity  values  and  height  values,  respectively,  for  the  currently 
interpolated  profile. 

The  determination  of  the  profile  arrays  and  proceeds  as  follows.  First, 

the  index  rij^i  is  set  equal  to  the  input  index  Ivlep.  Next,  a  test  is  made  to  determine 
whether  the  absolute  value  of  the  reference  height  y^^j-  is  greater  than  10'^  (i.e.,  is  y^^j- 
greater  than  approximately  zero).  If  is  approximately  zero;  then,  the  elements  of 
^efref  are  set  equal  to  the  corresponding  input  values  of  refdum,  and  the  elements  of 

are  set  equal  to  the  corresponding  input  values  of  htdum. 

For  the  case  when  y,.^j-  is  not  zero,  then  the  following  calculations  are  made.  First, 
two  internal  indices,  4ms;  and  are  set  equal  to  zero.  Next,  the  mxlvls  elements  of  h^^ 
and  are  initialized  to  zero.  Then,  y^^^  is  tested  to  see  if  it  is  below  sea  level  (i.e., 
yrrf  ^  htdum{\)).  If  it  is,  then  4ms;  and  are  set  equal  to  one.  If  y^^f  is  not  below  sea 
level,  then  the  refractivity  profile  level  at  which  y,.^^  is  just  above  is  determined.  This  test 
is  conducted  for  values  of  the  index  i  running  from  1  to  -1.  The  index  is  set  equal 
to  the  value  of  the  index  ;  that  satisfies  both  conditions  {^yr^  ^  htdum{i  +  ]\^  and 

[yref  >  htdum{i}). 

If  the  reference  height  y^^j-  is  not  zero  and  either  the  conditions  ^  o)  or 
{hsmi  =  0  are  true;  the  reffactivity  at  the  ground  is  determined,  and  the  arrays  ref^^j- 
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and  are  filled  with  refractivity  profile  data  where  the  height  zero  now  refers  to  the 
ground  reference  (i.e.,  either  ground  height  or  The  refractivity  at  the  ground  is 

given  by 

refrefi^  =  redun{j)  +  jrac{^refdum[j^-\-T^  -  refdum[j^})  (139) 

where  the  internal  variable  frac  is  given  by 


frac 


yref  -  htdun{j) 
htdumij^  0  “ 


(140) 


Naturally,  the  value  of  at  the  ground,  //„/(l) ,  is  set  to  zero.  A  test  is  made  to  see  if 
(lNT{>ac}  =  1)  is  true.  If  it  is,  is  set  equal  to  plus  one.  A  new  level  index  newl 
is  found  from  {jiewl  =  ~  A  +  l),  and  a  beginning  value  for  the  index  k  is  found  from 

{^k  =  +  1 ) .  For  values  of  the  index  running  from  2  to  newl,  the  arrays  and 

are  evaluated  in  the  order  given  from  refdum  and  htdum  as  follows 


r¥ref{jk)  =  refdunik) 

Kef{jk)  =  htdunik)  -  y^^j-  .  (141) 

k  =  k  +  \ 

The  number  of  levels  in  the  new  profile,  is  given  by  (%;  =  newl ). 

Finally,  if  input  index  equals  zero,  then  the  arrays  refdum  and  htdum  are 
initialized.  Each  element  of  refdum  is  set  equal  to  each  element  of  ref^^ ,  each  element  of 
htdum  is  set  equal  to  each  element  of  h^^^ ,  and  Ivlep  is  set  equal  to  . 

Table  5-25  and  Table  5-26  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  PROFREF  SU. 
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Table  5-25  PROFREF  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

meters 

Calling  SU 

Index  indicating  whether  the 
refractivity  profile  is  to  be  referenced 
to  ground  height 

above 

N/A 

PEINIT  CSC 

Ivlep 

Number  of  height/refiactivity  levels 
in  profile 

N/A 

Calling  SU 

mxlvls 

Maximum  number  of  height/M-imit 
levels 

N/A 

TPEM.INC 

refdum 

Dummy  array  containing  refractivity 
values  for  current  (horizontally 
interpolated)  profile 

M-units 

Calling  SU 

yref 

Reference  height  at  current  range 
step 

meters 

PEINIT  CSC 

Table  5-26  PROFREF  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

Kef 

Heights  of  refractivity  profile  with 
respect  to  local  ground  height 

meters 

PROFREF  SU 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

meters 

PROFREF  SU 

Ivlep 

Number  of  height/refiactivity  levels 
in  profile 

N/A 

PROFREF  SU 

Number  of  levels  in  new  profile 

N/A 

PROFREF  SU 

refdum 

Dummy  array  containing  refractivity 
values  for  current  (horizontally 
interpolated)  profile 

M-units 

PROFREF  SU 

refref 

Refractivity  array 

M-units 

PROFREF  SU 
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5.1.13  Interpolate  Profile  (INTPROF)  SU 


The  purpose  of  the  INTPROF  SU  is  to  perform  a  linear  interpolation  vertically 
with  height  on  the  reffactivity  profile,  .  Interpolation  is  performed  at  each  PE  mesh 

height  point.  Initially,  the  index  j  is  set  to  2. 

For  values  of  /  from  0  through  ,  the  internal  variable  height  is  set  equal  to  PE 
mesh  height  ht{i).  And  if  height  is  less  than  or  equal  to  h^^  (j),  or  if j  is  greater  or  equal  to 
;  then  the  interpolated  profile  profmtii)  is  determined  from 


profintii)  =  ref^^^(j-\) 


+  con(ref^^f{j}  -  ref^^^{j-\]) 


height  - 

Kef{j)  -  Kef{j-^) 


(142) 


where  the  constant  con  is  .  If  both  of  the  following  conditions  are  met;  (1)  height 

is  less  than  or  equal  to  h^^j-  (/},  and  (2)  j  is  greater  or  equal  to  ;  then  j  is  incremented 

by  one  and  the  above  test  is  applied  again.  If  the  test  is  satisfied,  the  above  interpolation  is 
calculated,  i  is  incremented  by  one,  and  the  interpolation  process  begun  for  the  new  value 
of  i.  If  the  above  test  is  still  not  satisfied,  j  is  incremented  by  one  until  the  above  test  is 
satisfied  and  the  interpolation  at  /  performed. 

Table  5-27  and  Table  5-28  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  INTPROF  SU. 
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Table  5-27 INTPROF  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

con 

meters'^ 

Calling  SU 

^ref 

Heights  of  refiractivity  profile  with 
respect  to  local  ground  height 

meters 

Calling  SU 

ht 

PE  mesh  height  array  of  size  njp 

meters 

Calling  SU 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginaiy  fields 

N/A 

TPEM.INC 

mxlvls 

Maximum  number  of  height/M-unit 
levels 

N/A 

TPEM.INC 

^jft 

Transform  size 

N/A 

GETFFTSZ  SU 

Number  of  levels  in  new  profile 

N/A 

Calling  SU 

refref 

Refiractivity  array 

M-units 

Calling  SU 

Table  5-28  INTPROF  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

profint 

Profile  interpolated  to  every 
in  height 

M-xmits 

INTPROF  SU 
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5.2  Parabolic  Equation  Step  (PEST|P)  CjSC 


The  purpose  pf  the  PESTEP  is  to  advance  the  entire  TPEM  CSCI  algorithm 
one  output  range  step,  referencing  various  SUs  to  calculate  the  propagation  loss  at  the 
current  out^^ut  range.  Figure  5-2  illustrates  the  generd  program  flow  for  the  PESTEP  SU. 


Figure  5-2  Program  flow  of  the  PESTEP  CSC 


Upon  entering  the  PESTEP  SU,  the  current  PE  range  is  set  equal  to  zero  if 
the  output  range  is  less  than  or  equal  to  10'^  meters,  the  next  output  range  x^^  is 
determined  by  incrementing  by  the  output  range  step  Ax^.  An  iterative  DO  WHILE 
loop  is  then  begun  to  advance  the  PE  solution  such  that  for  the  current  PE  range,  x^^ ,  a 
PE  solution  is  calculated  from  the  solution  at  the  previous  PE  solution  range.  This 

iterative  procedure  is  repeated  in  the  DO  WHILE  loop  until  Xcur  is  greater  than  the  output 
range 

These  procedures  begin  as  follows.  First,  if  the  saved  current  PE  range,  x^^ ,  is 
greater  than  zero,  then  the  height  of  the  ground  at  the  last  PE  range  is  set  to  the 
height  of  the  ground  at  the  current  PE  range  .  Next,  the  last  PE  range  x,^^  is  set 
equal  to  the  current  PE  range  x^ .  Then  the  field  arrays  U  of  the  previous  range  step  are 
stored  in  the  array  for  subsequent  horizontal  interpolation  at  range  .  This 
transfer  of  values  of  U  to  U,^i  is  made  for  values  of  the  index  i  running  from  1  through 
njji,  the  transform  size.  In  addition,  x^^  is  incremented  by  the  value  of  the  PE  range 

step.  Finally,  the  range  at  which  interpolation  for  range-dependent  refractivity  profiles  is 
performed,  x^.^,  is  determined  from  x^^  and  Ax^^^,  one-half  the  PE  range  step  ax,^,  as 

follows 


^mid  ~  ^cur  ^  PB2  ’  (143) 

Then  several  procedures  for  a  terrain  case  (i.e.,  fter  is  true)  are  instituted.  First, 
before  these  procedures  are  begun,  it  is  necessary  to  initialize  the  counter  for  the  terrain 
profile  and  current  slope  of  the  terrain  segment,  slope.  That  is,  if  the  absolute  value  of 
the  difference  between  the  current  range  x^^  and  the  PE  range  step  Ax,^  is  less  than  or 
equal  to  10'^;  then  is  set  to  1,  and  slope  is  set  to  the  value  of  ^^(1),  the  slope  of  the 
first  segment  of  terrain.  If  the  current  range  x^^  is  past  tr.teTx{k^+\),  the  next  range 
point  in  the  terrain  profile,  and  k^  is  less  than  the  number  of  height/range  point  pairs  in  the 
profile,  tr.itp.,  then  k^  is  incremented  by  one  and  slope  is  set  to  the  value  of  slp^k^). 
Then  y^^,  the  height  of  the  ground  at  the  current  PE  range,  is  given  by 

ycur  =  tr.tery{k,)  +  slope  [x^^  -tr.terx[k^])  (144) 

where  tr.teryik^  is  the  height  point  of  the  terrain  profile  at  index  k^ .  Having  set  the  index 
k^  equal  to  the  present  value  of  k^ ,  the  value  of  is  decreased  by  one  in  a  DO  WHILE 
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loop  until  is  greater  than  or  equal  to  tr.terx^kp).  Then  the  height  of  the  ground 
midway  between  the  last  and  current  PE  range,  ,  is  determined  from 

ycurm  =  tr.tery[kj,)  +  slp[kj,)\^x^j  -  tr.terx[k^]^  .  (145) 

If  vertical  polarization  is  used  (i.e.,  sv.polar  equals  “V”),  a  new  complex  refractive  index 
and  a  new  impedance  term  are  calculated  when  the  variable  is  greater  than 

tr.rgmd{ig+\),  the  range  at  which  the  ground  type  ig  applies.  If  the  latter  test  is  satisfied, 
then  ig  is  incremented  by  one  and  a  reference  is  made  to  the  GETALN  SU  to  obtain  the 
new  complex  refractive  index  and  the  new  impedance  term.  Finally,  if  the  slope  of  the 
segment  is  negative,  a  reference  to  the  DOSHIFT  SU  is  made  so  the  PE  field  can  be 
“shifted”  by  the  number  of  bins,  or  PE  mesh  height  points,  corresponding  to  the  local 
ground  height. 

For  the  vertical  polarization  case,  the  difference  equation  w{i)  of  the  complex  PE 
field  array  is  given  by 


f/(/  +  l)  -  U{i-\) 


Az 


PE2 


(146) 


where  is  the  vertical  polarization  impedance  term,  is  twice  the  PE  mesh  height, 

and  U\s  the  complex  PE  field.  The  index  i  runs  from  1  through  nml.  The  parameter  nml 
is  the  transform  size  minus  one.  Using  w(/),  the  FRSTP  SU  is  referenced  to 

propagate  the  complex  PE  solution  field  in  free  space  by  one  range  step.  The  coefficients 
used  in  vertical  polarization  calculations,  C;  and  C?,  are  propagated  to  the  new  range  as 
follows: 


C  =  C  *  C 

'^l  '^1  ^\M 

c  =  c  *  c 

'^2  '^2  '^2M 


(147) 


If  the  polarization  is  not  vertical,  then  the  FRSTP  SU  is  referenced  using  the  complex  PE 
field  U. 


If  the  TPEM  CSCI  is  being  used  in  a  range-dependent  mode,  that  is,  more  than 
one  profile  has  been  input  (i.e.,  the  number  of  profiles  rf.nprof  is  greater  than  1);  or  a 
terrain  profile  is  specified  (\.Q.,fter  is  true);  the  REFINTER  SU  is  referenced  using  y^ 
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(the  height  of  the  ground  midway  between  the  last  and  current  PE  range)  to  compute  a 
new  modified  refractive  index  profile,  prqfint,  adjusted  by  the  local  ground  height  at  the 
current  range.  The  PHASE2  SU  is  then  referenced  to  compute  a  new  environmental 
phase  term,  envpr,  based  on  this  new  refractivity  profile. 

The  following  steps  outline  the  implementation  of  steps  nine  through  eleven  in 
Kuttler’s  formulation  for  vertical  polarization  (i.e.,  sv.polar  equals  “V”).  First,  the 
particular  solution  of  Kuttler’s  difference  equation  is  initialized  to  complex  zero.  Then 

is  found  for  the  index  /  running  from  1  through  nml  from 


=  ^PE2^{i)  +  •  (148) 

Next,  the  complex  field  U(n^^  is  set  equal  to  complex  zero.  The  complex  field  U  is  found 
with  the  index  nmi  decreasing  from  minus  one  to  0  from 

=  Rj  {^y^\^nmi^  -  +  .  (149) 

Next,  the  two  summation  terms,  suml  and  sum2,  for  determining  the  complex  coefficients, 
and  ,  of  the  partial  linear  solution  to  the  homogeneous  equation,  respectively,  are  set 

equal  to  complex  zero.  The  final  values  of  suml  and  sum2  are  found  in  a  DO  loop  for  the 
index  i  increasing  from  0  through  rijj-f.  The  complex  fields  U^  and  are  given  by 


U,  =  U(i) 

=  U(nmi) 

where 


(150) 


nmi  =  -  i  . 

If  i  equals  either  zero  or  and  are  given  by 


(151) 


U,  =  0.5  C/, 
=  0.5  U. 


(152) 


The  constants  in  the  summation  arguments,  C■^c  and  C2C ,  for  determining  and  , 
respectively,  are  given  by 
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(153) 


Qc  “  ^nm\ 
where  cd  is  given  by 

cd  =  /?^^(/) 

cd  =  -R,y{i)  if(M0D{/,2}^l)  ’ 

Finally,  suml  and  sum2  are  given  by 

suml  =  sum\  +  C,,, 
suml  =  suml  +  Cjc 

The  constants  and  are  now  given  by 


(154) 


(155) 


a,.  =  C]  -  i?jj.  suml 
-  C2  -  R^  suml 

where  R,.  is  a  coefficient  used  in  the  Ci  and  C2  calculations. 


(156) 


In  the  last  DO  loop  for  Kuttler’s  formulation,  the  complex  field  U{i)  is  found  fi-om  the 
current  value  of  Uii)  and  Rjiy{i) ,  ci^{i)  and  b^i)  -  The  loop  index  i  runs  from  0  through 


£/(-■)  =  i7(/)  +  a,  R,^{l)  +  b,  cd 

where  cd  is  given  by 

cd  =  R^y{^nmi^ 

cd  =  - R^y(^nmi)  if  (mOD  («/»/, 2 }  =  l) 


(157) 


(158) 


nmi  =  n„^  -  i  .  (159) 

The  complex  field  U{i)  is  now  multiplied  by  the  environmental  term  envpr(i)  for 
values  of  the  index  /  running  from  1  through  nml. 
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At  each  PE  range  step,  the  PE  field  is  shifted  by  the  number  of  bins,  or  PE  mesh 
height  points,  corresponding  to  the  local  ground  height.  This  is  done  in  a  in  a  reference  to 
theDOSHIFTSU. 

Finally,  after  the  output  range  is  reached  and  the  DO  WHILE  loop  exited,  the 

CALCLOS  SU  is  referenced  to  obtain  the  propagation  loss  mloss  values  at  the  desired 
output  heights  at  the  current  output  range  . 

Table  5-29  and  Table  5-30  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  GETPFAC  SU. 


Table  5-29  PESTEP  CSC  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

«v 

Vertical  polarization  impedance 
term  ->  ik^lR^^ 

N/A 

Calling  CSCI 

c, 

Coefficient  used  in  vertical 
polarization  calculations 

N/A 

Calling  CSCI 

Q 

Coefficient  used  in  vertical 
polarization  calculations 

N/A 

Calling  CSCI 

Constant  for  each  calculated 
a  used  in  C  calculation 

N/A 

Calling  CSCI 

c 

Constant  for  each  calculated 

a  used  in  C  calculation 

V  ^ 

N/A 

Calling  CSCI 

Output  range  step 

meters 

Calling  CSCI 

^PE 

PE  range  step 

meters 

Calling  CSCI 

^PE2 

Vz  PE  range  step 

meters 

Calling  CSCI 

^PE2 

2.  * 

meters 

Calling  CSCI 

envpr 

Complex  refractivity  profile  array 
interpolated  every  AZp^  in  height 

M-units 

Calling  CSCI 

frsp 

Complex  free  space  propagator  term 
array 

N/A 

Calling  CSCI 

fter 

Logical  flag  indicating  if  performing 
terrain  case 

N/A 

Calling  CSCI 

Counter  indicating  current  ground 
type  being  modeled 

N/A 

Calling  CSCI 

maxn4 

maxpts  divided  by  4;  specifies  the 
length  of  the  filter  array 

N/A 

TPEM.INC 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

N/A 

FFTSIZ.INC 

mxrout 

Maximum  number  of  output  range 
points 

N/A 

TPEM.INC 

Table  5-29  PESTEP  CSC  Input  Data  Element  Requirements  (cont’d) 


Name 

Description 

Units 

Source 

mxter 

Maximum  number  of  height/range 
points  allowed  for  terrain  profile 

N/A 

TPEM.INC 

mxzout 

Maximum  number  of  output  height 
points 

N/A 

TPEM.INC 

”jrt 

Transform  size 

N/A 

Calling  CSCI 

nml 

N/A 

Calling  CSCI 

Array  of  Rj  to  the  //th  power 
(e.g.,  4) 

N/A 

Calling  CSCI 

rf 

Reftactivity  structure  for  external 
enviroiunental  data  elements 

N/A 

TPEM.INC 

rf.nprof 

Number  of  profiles 

N/A 

TPEM.INC 

Rk 

Coefficient  used  in  Cj  and 
calculations 

N/A 

Calling  CSCI 

Rj 

Complex  root  of  quadratic  equation 
for  mixed  transform  method  based 
on  Kuttler’s  formulation 

N/A 

Calling  CSCI 

sip 

Slope  of  each  segment  of  terrain 

meters/ 

meter 

Calling  CSCI 

sv 

System  structure  for  external  system 
data  elements 

N/A 

TPEM.INC 

sv.polar 

1 -character  string  indicating 
polarization 

N/A 

TPEM.INC 

tr 

Terrain  structure  for  external  system 
data  elements 

N/A 

TPEM.INC 

trJtp 

Number  of  height/range  points  pairs 
in  profile 

N/A 

TPEM.rNC 

tr.rgrnd 

Ranges  at  which  the  ground  types 
apply 

meters 

TPEM.INC 

trJerx 

Range  points  of  terrain  profile 

meters 

TPEM.INC 

tr,trey 

Height  points  of  terrain  profile 

meters 

TPEM.INC 

u 

Complex  PE  field 

juVIm 

Calling  CSCI 

vnp 

INUTVAR  structure  for  external 
implement  constants 

N/A 

TPEM.INC 

ycur 

Height  of  ground  at  current  PE  range 

meters 

Calling  CSCI 

y  curm 

Height  of  ground  midway  between 
last  and  current  PE  range 

meters 

Calling  CSCI 

yiast 

Height  of  ground  at  last  PE  range 

meters 

Calling  CSCI 

y  minter 

Reference  height  for  internal 
calculations  of  the  field  U  (minimum 
height  of  terrain  profile) 

meters 

Calling  CSCI 
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Table  5-30  PESTEP  CSC  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

«v 

Vertical  polarization  impedance 
term  ->  ik^lR^^ 

N/A 

PESETEP  CSC 

c, 

Coefficient  used  in  vertical 
polarization  calculations 

N/A 

PESTEP  CSC 

Q 

Coefficient  used  in  vertical 
polarization  calculations 

N/A 

PESTEP  CSC 

C,M 

Constant  for  each  calculated 
a  used  in  C  calculation 

N/A 

PESTEP  CSC 

c 

Constant  for  each  calculated 
a  used  in  C,  calculation 

N/A 

PESTEP  CSC 

envpr 

Complex  refractivity  profile  array 
interpolated  every  in  height 

M-units 

PESTEP  CSC 

Counter  indicating  current  ground 
type  being  modeled 

N/A 

PESTEP  CSC 

J  end 

Index  at  which  valid  loss  values  in 
mloss  end 

N/A 

PESTEP  CSC 

J  start 

Index  at  which  valid  loss  values  in 
mloss  begin 

N/A 

PESTEP  CSC 

mloss 

Loss  values 

Centibels 

PESTEP  CSC 

Array  of  to  the  z/th  power 

(e.g.,  Rj) 

N/A 

PESTEP  CSC 

^ng 

Complex  refractive  index 

M-units 

PESTEP  CSC 

^r,g2 

Complex  refractive  index  squared 

M-units^ 

PESTEP  CSC 

Rj. 

Complex  root  of  quadratic  equation 
for  mixed  transform  method  based 
on  Kuttler’s  formulation 

N/A 

PESTEP  CSC 

u 

Complex  PE  field 

/uV  /  m 

PESTEP  CSCl 

Output  range 

meters 

PESTEP  CSC 

ycur 

Height  of  ground  at  current  PE  range 

meters 

PESTEP  CSC 

y  curm 

Height  of  ground  midway  between 
last  and  current  PE  range 

meters 

PESTEP  CSC 

y  last 

Height  of  ground  at  last  PE  range 

meters 

PESTEP  CSC 
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5.2.1  DOSHIFTSU 


The  purpose  of  the  DOSELIFT  SU  is  to  shift  the  field  by  the  number  of  bins,  or  PE 
mesh  heights  corresponding  to  local  ground  height. 


Upon  entry,  the  number  of  bins  to  be  shifted  is  determined.  First,  the  difference 
between  height  of  the  ground  at  the  last  range  step  and  that  at  the  current  PE 

range  y^^  is  determined  from 


diff  y cur  y last  ' 

The  number  of  bins  to  be  shifted  is  found  from 


(160) 


^bin 


( 

=  NINT 

V 


(161) 


The  PE  solution  U  is  then  shifted  downward  if  the  local  ground  is  currently  at  a  positive 
slope  >  0  0)j  upward  if  the  local  ground  is  at  a  negative  slope  i^yaiff  <  0.0),  and 

otherwise  not  shifted.  When  the  PE  solution  has  been  shifted  down,  then  the  value  of  the 
PE  solution  U  for  the  upper  elements  are  set  to  zero.  Likewise,  when  the  PE  solution 
has  been  shifted  upwards,  the  lower  elements  are  set  to  zero. 


Table  5-3 1  and  Table  5-32  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  GETPFAC  SU. 
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Table  5-3 1  DOSHEFT  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

^PE 

Bin  width  in  z  space 

meters 

GETFFTSZ  SU 

"fft 

Transform  size 

N/A 

GETFFTSZ  SU 

nml 

N/A 

PEINTT  CSC 

U 

Complex  field 

nV  Im 

Calling  SU 

ycur 

Height  of  ground  at  current  range 
step 

meters 

Calling  SU 

>’to 

Height  of  groimd  at  last  range  step 

meters 

Calling  SU 

Table  5-32  DOSHIFT  SU  Output  Data  Element  Requirements 


Name  Description 

Units 

Source 

U  Complex  field  after  bin  shift 

juV/m 

DOSHIFT  SU 
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5.2.2  GETALNSU 


The  puqjose  of  the  GETALN  SU  is  to  compute  the  impedance  term  in  the 
Leontovich  boundary  condition,  and  the  complex  index  of  refraction  for  finite  conductivity 
and  vertical  polarization  calculations.  The  implementation  of  these  impedance  formulas 
follow  Kuttler’s  and  Dockery 's  method  (Ref  h). 

Using  the  user  defined  ground  type  (i^),  the  relative  permittivity  and  the 
conductivity  input  values,  tr.dielect(l,  i^)  and  tr.dielect(2,  i^),  respectively,  are  used  to 
determine  the  complex  refractive  index  (R„g)  and  complex  refractive  index  squared  iR„g2 ) 

in  terms  of  the  wavelength  ( A )  as  follows. 

R„g2  =  CMPLX.{^tr.dielect  60.0  X  tr. dielect  ^2,  (162) 

i?.,  =  CSQRT(i!.,,)  (163) 

The  vertical  polarization  impedance  term  is  given  in  terms  of  the  complex 
refractive  index  {R„g),  the  imaginary  (z),  and  free  space  wave  number  (A:^)  by 


a  .  =  ^  .  (164) 

The  determination  of  the  complex  root  {Rj)  of  the  quadratic  equation  for  the 
mixed  transform  method  is  based  on  Kuttler’s  formulation.  It  is  done  here  only  for  vertical 
polarization,  as  that  is  the  only  condition  in  which  the  GETALN  SU  will  be  called.  First, 
the  internal  parameter,  R^  is  determined  as  follows. 

Rj  =  CSQRT^l.O  +  Azp^Y^  -  hzp^.  (165) 

Then,  for  values  of  0  through  zz^of  the  index  zz,  the  array  of  (Rp)  to  the  zz*  power 
R^yiii)  is  given  by 

R^yiii)  =  R;  .  (166) 
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The  parameter  Rf,,  a  coefficient  used  in  the  determination  of  C/  and  C2  in  the 
calling  SU,  is  found  from 


and 


Ru  = 


20(1.0  -  R,,{2)) 


|l.O  I  j  (1.0  + 


(167) 


The  parameters  C,j^  and  are  determined  from 


C,^  =  CEXP 


2  k, 


rV 


Az 


PE 


(168) 


=  CEXP 


iAxp^  f  CLOG(i?j.)  -  m 


[2^ 


V  2^0 


Az 


PE 


(169) 


Table  5-33  and  Table  5-34  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  GETALN  SU. 
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Table  5-33  GETALN  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

Axp£ 

PE  range  step 

meters 

Calling  SU 

^PE 

Bin  width  in  z  space 

meters 

GETFFTSZ  SU 

i 

Imaginaiyi  =  complex  (0,1) 

N/A 

PEINTT  CSC 

Coxmter  indicating  current  ground 
type  being  modeled 

N/A 

CALLING  SU 

K 

Free-space  wave  number  —2nlX 

meters"^ 

PEINTT  CSC 

X 

wave  length 

meters 

PEINIT  CSC 

mcDcpts 

Maximum  size  of  arrays  for  the  real 
and  imaginaiy  fields 

N/A 

FFTSIZ.INC 

Transform  size 

N/A 

GETFFTSZ  SU 

n 

3.1415926 

N/A 

TPEM.INC 

tr 

Terrain  structure  for  external  terrain 
data  elements 

N/A 

TPEM.INC 

tr.  dielec 

2“dimensional  array  containing  the 
relative  permittivity  and  conductivity 
for  user  defined  terrain 

a 

TPEM.INC 

conductivity  has  units  of  S/m. 


Table  5-34  GETALN  SU  Output  Data  Requirements 


Name 

Description 

Units 

Source 

«v 

Vertical  polarization  impedance 
term  -> 

N/A 

GETALN  SU 

c 

Constant  for  each  calculated 
a  used  in  C  calculation 

V  * 

N/A 

GETALN  SU 

Constant  for  each  calculated 
a  used  in  C  calculation 

y  ^ 

N/A 

GETALN  SU 

Array  of  Rj  to  the  z/th  power 
(e.g.,  4) 

N/A 

GETALN  SU 

Re 

Coefficient  used  in  Cj  and  C2 
calculations 

N/A 

GETALN  SU 

R. 

Complex  refractive  index 

N/A 

GETALN  SU 

Rng2 

Complex  refractive  index  squared 

N/A 

GETALN  SU 

Rj 

Complex  root  of  quadratic  equation 
for  mixed  transform  method  based 
on  Kuttler’s  formulation 

N/A 

GETALN  SU 
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5.2.3  Free  Space  Range  Step  (FRSTP)  SU 


The  purpose  of  the  FRSTP  SU  is  to  propagate  the  complex  PE  solution  field  in 
firee  space  by  one  range  step. 

Upon  entry  the  PE  array,  is  transformed  to  p-space  (Fourier  space)  and  then 
nml  of  its  elements  are  multiplied  by  the  corresponding  free  space  propagator,  frsp, 
elements.  Before  exiting  the  PE  field  is  transformed  back  to  z-space.  Both  transforms  are 
performed  using  FFT  SU. 

Table  5-35  and  Table  5-36  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  FRSTP  SU. 


Table  5-35  FRSTP  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

farray 

Field  array  to  be  propagated  one 
range  step  in  free  space 

MVIm 

Calling  SU 

frsp 

Complex  free  space  propagator  term 
array 

N/A 

Calling  SU 

nml 

n-I 

N/A 

PEINTT  CSC 

Table  5-36  FRSTP  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

/array 

Propagated  field  array 

frV  Im 

FRSTP  SU 
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5.2.4  Refractivity  Interpolation  (REFINTER)  SU 


The  purpose  of  the  REFINTER  SU  is  to  interpolate  both  horizontally  and 
vertically  on  the  modified  refractivity  profiles.  Profiles  are  then  adjusted  so  they  are 
relative  to  the  local  ground  height . 

An  in-line  function  for  linear  interpolation  is  defined  by 

PINT(pl,;?2)  =  p\  +  Jv(,p2  -  p\)  .  (170) 

Upon  entry,  the  number  of  height/reffactivity  levels,  Ivlep,  in.  the  profile  is  set 
equal  to  the  user  input  number  of  levels,  rf.  Ivlep,  in  the  refractivity  profile.  For  the  range 
dependent  case  all  profiles  have  the  same  number  of  levels. 

If  there  is  a  range-dependent  environment  (i.e.,  more  than  one  refractivity  profile), 
horizontal  interpolation  in  range  to  the  current  PE  range  is  performed  between  the  two 
neighboring  profiles  that  are  specified  relative  to  mean  sea  level.  If  the  user  input 
parameter,  rf.nprof,  is  greater  than  one,  then  the  case  is  range  dependent.  In  that  case  the 
following  calculations  are  made.  First,  if  the  desired  range  for  profile  interpolation,  range, 
is  greater  than  the  range  for  the  next  refractivity  profile  rv2;  then  the  index  j  of  the  last 
refractivity  profile  is  set  equal  to  the  counter  for  the  current  profile  /^,  ^  is  incremented 

by  one,  the  range  of  the  last  refractivity  profile  rvl  is  set  equal  to  rv2,  rv2  is  set  equal  to 
the  range  of  the  if'  profile  rf.mgprof{i^').  The  fractional  range  fv  for  the  interpolation  is 

given  by 


>  = 


range  -  rvl 
rv2  -  rvl 


(171) 


For  values  of  the  index  /  from  1  to  Ivlep,  the  dummy  array  refdum  containing  M-unit 
values  for  the  current  (interpolated)  profile  and  the  dummy  array  htdum  containing  height 
values  for  the  current  (interpolated)  profile  are  determined  from 


refdumii)  =  VTin:{^rf  .refinsl\i,j\,rf  .rejrnsl\i,i^^ 


and 


(172) 
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(173) 


htdumii)  =  PINT 

where  rf.refinsl  is  a  2-dimensional  array  containing  refractivity  with  respect  to  mean  sea 
level  of  each  profile  and  rf.hmsl  is  a  2-dimensional  array  contmning  heights  in  meters  with 
respect  to  mean  sea  level  of  each  profile. 

The  REMDUP  SU  is  referenced  to  remove  duplicate  refractivity  levels  with  Mep 
being  the  number  of  points  in  the  profile  at  range  range,  and  the  PROFREF  SU  is  then 
referenced  to  adjust  the  new  profile  (i.e.,  refdum  and  htdum)  relative  to  the  internal 
reference  height  hmMer  corresponding  to  the  minimum  height  of  the  terrain  profile.  The 
PROFREF  SU  is  then  referenced  once  more  to  adjust  the  profile  relative  to  the  local 
ground  height  and  upon  exit  from  the  PROFREF  SU,  the  INTPROF  SU  is 

referenced  to  interpolate  vertically  on  the  refractivity  profile  at  each  PE  mesh  height  point. 
This  results  in  the  w^^-point  profile  prqfintQ  array  containing  the  interpolated  M-unit 

values  for  the  refractivity  at  range  range,  where  n^i  is  the  transform  size. 

Upon  exiting  the  REFINTER  SU,  rvl  and  the  index  j  are  saved.  The  index  j  is  the 
index  of  the  last  refractivity  profile. 

Table  5-37  and  Table  5-38  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  REFINTER  SU. 
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Table  5-37  REFINTER  SU  Input  Data  Elements 


Name 

Description 

Units 

Source 

h 

Counter  for  current  profile 

N/A 

Calling  SU 

Ivlep 

Number  of  height/refiactivity  levels 
in  profile 

N/A 

Calling  SU 

mxlvls 

Maximum  number  of  height/M-unit 
levels 

N/A 

TPEM.INC 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

N/A 

FFrSIZ.INC 

range 

Range  for  profile  interpolation 

meters 

Calling  SU 

rf 

Refi'activity  structure  for  external 
environmental  data  elements 

N/A 

TPEM.INC 

rf  Ivlep 

Number  of  levels  in  refractivity 
profile 

N/A 

TPEM.INC 

rf.refmsl 

2-dimensional  array  containing 
refractivity  with  respect  to  mean  sea 

M-unit 

TPEM.INC 

level  of  each  profile.  Array  format 
must  be  refmsl{Uj)  =  M-unit  at 
level  of f"  profile.  j=l  for  range- 
independent  cases 

rf.hmsl 

2-dimensional  array  containing 
heights  with  respect  to  mean  sea 

meters 

TPEM.INC 

level  of  each  profile.  Array  format 
must  be  hmsl(ij)  =  height  of  level 
of  profile,  j-l  for  range- 

independent  cases 

rfrngprof 

Ranges  of  each  profile,  rngprofii)  = 
range  of  profile 

meters 

TPEM.INC 

rfnprof 

Number  of  profiles 

N/A 

TPEM.INC 

rv2 

Range  of  the  next  refractivity  profile 

meters 

Calling  SU 

"y  curm 

Height  of  ground  midway  between 

meters 

Calling  SU 

y  minter 

last  and  current  range  step 

Reference  height  for  internal 
calculations  of  the  field  U 

meters 

Calling  SU 

Table  5-38  REFINTER  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

Counter  for  current  profile 

N/A 

REFINTER  SU 

Ivlep 

Number  of  height/refractivity  levels 
in  profile 

N/A 

REFINTER  SU 

profint 

Profile  interpolated  to  every  AZp^. 

M-units 

REFINTER  SU 

rv2 

in  height 

Range  of  the  next  refractivity  profile 

meters 

REFINTER  SU 

86 


5.2.5  Remove  Duplicate  Refractivity  Levels  (REMDUP)  SU 


The  purpose  of  the  REMDUP  SU  is  to  remove  any  duplicate  refractivity 
levels  in  the  currently  interpolated  profile.  Adjoining  profile  levels  are  checked  to  see  if 
the  heights  are  within  0.001  meters.  If  they  are,  the  duplicate  level  in  the  profile  is 
removed.  This  process  continues  until  all  profile  levels  (Ivlep)  have  been  checked. 


Table  5-39  and  Table  5-40  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  REMDUP  SU. 


Table  5-39  REMDUP  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

meters 

REFINTER  SU 

Ivlep 

Number  of  height/refractivity  levels 
in  profile 

N/A 

REFINTERSU 

mxlvls 

Maximum  number  of  height/M-unit 
levels 

N/A 

TPEM.INC  SU 

refdum 

Dummy  array  containing  M-unit 
values  for  current  (horizontally 
interpolated)  profile 

M-units 

REFINTER  SU 

Table  5-40  REMDUP  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

meters 

REMDUP  SU 

Ivlep 

Number  of  height/refiactivity  levels 
in  profile 

N/A 

REMDUP  SU 

refdum 

Dummy  array  containing  M-unit 
values  for  current  (horizontally 
interpolated)  profile 

M-units 

REMDUP  SU 

5.2.6  Calculate  Propagation  Loss  (CALCLOS)  SU 


The  purpose  of  the  CALCLOS  SU  is  to  determine  the  propagation  loss  at  each 
output  height  point  at  the  current  output  range. 

At  the  outset  a  minimum  propagation  factor,  pfacmin,  is  set  to  300  dB. 

Then  an  in-line  function  for  linear  interpolation  between  two  values  ply  and  pl^ , 
FLINT,  is  defined  by 


FLINT  ( ply ,  pl^ ,  frac  )  =  M  +  frac  ( pl^  -  ply  )  (174) 

where  frac  is  the  fractional  distance  fi'om  ply  to  pf  for  which  the  interpolation  is  being 
made. 


Several  variables  are  initialized.  If  the  output  range  step  is  within  10'^ 

meters  of  the  output  range  ;  the  counter,  4,  for  the  array  that  contains  heights  at 

each  output  range  at  which  the  last  valid  loss  value  exists,  is  set  to  1.  The  height  of  the 
terrain,  at  the  current  range  step  is  determined  relative  to  the  reference  height,  . 

The  reference  height,  ,  is  itself  a  user  provided  minimum  output  height  relative  to  the 
minimum  terrain  height,  y„i„ter  g •»  sea  level).  Then,  the  height  of  the  terrain,  y^,,,  at  the 
current  range  step  relative  to  y„,j„ter  *s  determined.  Next,  the  height  of  the  terrain,  y,,, ,  at 
the  last  range  step  is  determined  relative  to  .  Finally,  the  height  of  the  terrain,  y^ ,  at 

the  last  range  step  relative  to  the  minimum  terrain  height,  Tmmter.  is  determined. 

The  interpolated  ground  height  at  the  current  output  range  and  the  number 
of  vertical  output  points  4^  that  correspond  to  this  ground  height  are  determined.  First, 

the  interpolated  ground  height  is  given  by 


=  FLINT y^,,  xx) 

where  the  parameter  xx  is  given  in  terms  of  the  PE  range  step  by 


XX  = 


^out  ^last 


Ar 


PE 


(175) 


(176) 
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Having  determined  ,  then  4^  is  determined  from 


4,  =  INT 


^int  y  mr^ 


(177) 


where  Az^  is  the  output  height  increment.  Then  all  of  the  elements  of  the  array  mloss 
from  1  to  4^  are  set  to  zero,  and  the  index,  ,  representing  beginning  valid  loss  values 

in  the  mloss  array  is  set  to  the  maximum  of  1  or  ^4g  + 1)  • 


If  the  current  output  range  is  greater  than  the  range  at  which  valid  loss  values 
are  to  be  calculated,  then  the  calculation  of  loss  values  and  the  mloss  array  is  begun.  If 
this  condition  is  not  satisfied,  then  the  mloss  array  is  set  to  -1  for  values  of  the  array  index 
from  a  beginning  value  of  up  to  and  including  the  number  of  output  points  desired 

vnp.nzout. 

First,  several  parameters  needed  in  the  determination  of  the  propagation  loss  are 
calculated.  If  the  last  PE  range,  ,  is  greater  than  zero,  then  the  parameter,  ,  is 

given  by 


^legist  =  10-  ALOG10(x^,  )  forx^>Q.  .  (178) 

Otherwise  x^,^  is  set  to  zero.  The  parameter  x^^  is  given  by 


x^g  =  10.  ALOGlo(xp£.) 

where  Xp^  is  the  PE  range.  The  free  space  loss,  /space ,  at  x^„,  is  given  by 


(179) 


/space =  20.  ALOGlo(x^,  )  +  plcnst  .  (180) 

Several  parameters  are  determined  corresponding  to  the  terrain  case.  If  the  logical 
variable  /ter  is  true,  then  a  terrain  case  is  being  calculated.  The  two  indices  14,1  and  are 

given  by 


r 


=  AMAXO 


0,INT 


V 


-i  \ 

J  J 


(181) 
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and 


f 


7^2  =  AMAXO 


0,INT- 


V 


Az. 


out  J  J 


(182) 


For  values  of  the  array  index  from  1  up  to  and  including  ,  the  array  of  propagation 

factors,  rfacl,  at  valid  height  points  for  range  are  set  to  the  minimum  propagation 

factor  pfacmin  for  later  interpolation.  For  values  of  the  array  index  from  1  up  to  and 
including  the  array  of  propagation  factors,  rfac2,  at  valid  height  points  for  range 

are  set  to  the  minimum  propagation  factor  pfacmin  for  later  interpolation.  Then  the 
two  indices  and  z^j  incremented  by  a  value  of  1. 


If  the  logical  variable  fter  is  false  (i.e.,  a  smooth  surface  case),  then  both  z^j  and 
ip2  are  set  to  1 . 


Next,  the  height/integer  value,  ,  to  stop  calculating  the  loss  is  determined, 
is  found  as  follows. 


f  end 


=  AMAXO 


0,NINT 


AMINl[z..,AMAXl(z^,y.,  {/.})]  - 


(183) 


where  z^  is  the  counter  for  the  array  j^;,„(z) .  Note  that  for  terrain  cases,  ray  tracing  was 
performed  using  the  direct  ray  angle  and  sometimes  may  be  less  than  the  local 

ground  height.  In  that  case  this  SU  exits  from  the  propagation  loss  calculation  using  a  GO 
TO  FORTRAN  statement. 


The  propagation  loss  values  are  determined  from  the  propagation  factors  rfaclif) 
and  rfac2{i)  and  from  the  parameter  xx  shown  above.  If  is  greater  than  zero,  then 

the  propagation  factor,  rfacl{i),  at  valid  heights  from  the  field  at  the  previous  step  is 

given  by 


rfac\{i)  =  GETPFAC(f/to,,Xi„g,z„„,{z}  - 


(184) 
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where  the  index  /  goes  from  /p,  to  in  steps  of  1.  Then,  using  a  reference  to  the 

GETPFAC  SU,  the  propagation  factor,  rfac2{i),  at  valid  heights  from  the  field  U  is  given 
by 


rfac'^i)  =  GETPFAC  (  U,  x^.  -  y,)  (185) 

where  the  index  /  goes  from  to  Jend  steps  of  1.  Finally,  the  propagation  loss  mloss 
at  range  is  found  by  interpolating  between  the  two  PE  ranges.  For  the  index  k  running 
from  to  in  steps  of  one  and  using  a  reference  to  the  in-line  function  PLIblT,  the 
propagation  loss  mloss(k)  is  given  by 

mloss(k)  =  INT2  I  10.  |PLINT  ^;y23'cl(A:),  ^c2(A:),  xx  J  +  f space .})  (186) 
when  is  greater  than  zero.  Otherwise,  mloss(k)  is  given  by 

mloss{k^  =  INT2^10.  ^rfac2{k^  +  /space .  (187) 

Before  exiting  the  CALCLOS  SU,  the  index  ^  is  incremented  by  one. 

Table  5-41  and  Table  5-42  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  CALCLOS  SU. 
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Table  5-41  CALCLOS  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

Output  range  step 

meters 

Calling  SU 

PE  range  step 

meters 

Calling  SU 

Az<« 

Output  height  increment 

meters 

Calling  SU 

fter 

Logical  flag  representing  terrain 

N/A 

PEINIT  CSC 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

N/A 

FFTSIZ.INC 

mxrout 

Maximum  number  of  output  range 
points 

N/A 

TPEM.INC 

mxzout 

Maximum  number  of  output  height 
points 

N/A 

TPEM.INC 

plcnst 

Constant  used  in  determining 
propagation  loss  ^20  log|2^^  |j 

N/A 

PEINIT  CSC 

^PE 

PE  range 

meters 

Calling  SU 

Last  PE  range 

meters 

Calling  SU 

Output  range 

meters 

Calling  SU 

u 

Complex  field  at  current  PE  range 

fiVIm 

Calling  SU 

Complex  field  at  previous  PE  range 
step 

^Vlm 

Calling  SU 

vnp 

JNPUTVAR  structure  for  external 
implementation  constants 

N/A 

Calling  SU 

vnp.nzout 

Integer  number  of  output  height 
points  desired 

N/A 

TPEM.INC 

ycur 

Height  of  ground  at  current  PE  range 
step 

meters 

Calling  SU 

yiast 

Height  of  ground  at  last  range  PE 
step 

meters 

Calling  SU 

yiim 

Height  at  each  output  range  at  which 
the  last  valid  loss  value  exists 

meters 

Calling  SU 

yminter 

Reference  height  for  internal 
calculations  of  the  field  U 

meters 

Calling  SU 

ymref 

Height  relative  toy^imer 

meters 

Calling  SU 

^lim 

Height  limit  for  ray  trace 

meters 

Calling  SU 

^out 

Array  containing  all  output  height 
points 

meters 

Calling  SU 

Table  5-42  CALCLOS  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

J  end 

Index  at  which  valid  loss  values  in 
mloss  end 

N/A 

CALCLOS  SU 

J  start 

Index  at  which  valid  loss  values  in 
mloss  begin 

N?A 

CALCLOS  SU 

mloss 

Loss  values 

Centibels 

CALCLOS  SU 
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5.2.7  Get  Propagation  Factor  (GETPFAC)  SU 


The  purpose  of  the  GETPFAC  SU  is  to  determine  the  propagation  factor  at  the 
specified  height  in  dB. 

A  linear  interpolation  over  the  PE  range  interval,  Az^^. ,  is  performed  to  obtain  the 
propagation  factor  for  each  PE  height  output  point  at  the  current  range.  First,  the 
interpolated  amplitude  pow  of  the  field  at  the  receiver  height,  ,  is  determined  fi'om 


pow  =  CABs(c/{/7j})  +  X  (cabs  {u[w6  + 1]}  -  CABs{c/[wfc]})  (188) 
where  the  interpolation  fraction  is  determined  from 

/.  =  ^  -  FLOAt(«.)  (189) 

AZp,^ 

and  where  is  determined  from 


paw  is  constrained  to  be  greater  or  equal  to  10  pV  /  m .  Finally,  the  propagation  factor 
ffac  is  given  by 

=  -20ALOG10  [paw]  -  (191) 

where  is  ten  times  the  logarithm  of  the  range. 

Table  5-43  and  Table  5-44  identify,  describe  the  purpose  for,  state  the  units  of,  and 
show  the  computational  source  for  each  input  and  output  data  element,  respectively,  of 
the  GETPFAC  SU. 
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Table  5-43  GETPFAC  SU  Input  Data  Element  Requirements 


Name 

Description 

Units 

Source 

^PE 

Bin  width  in  z  space 

meters 

Calling  SU 

10  times  logarithm  of  range 

dB/meter 

CALCLOS  SU 

u 

Complex  field 

HV  tm 

CALCLOS  SU 

z 

r 

Receiver  height 

meters 

CALCLOS  SU 

Table  5-44  GETPFAC  SU  Output  Data  Element  Requirements 


Name 

Description 

Units 

Source 

f fac 

Propagation  factor  at  specified 
height 

dB 

GETPFAC  SU 
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6.  REQUIREMENTS  TRACEABILITY 


This  section  provides  the  traceability  of  the  design  of  the  TPEM  CSCI.  Table  6-1 
presents  this  traceability  between  the  corresponding  sections  of  the  Software 
Requirements  Specification  (SRS)  and  the  Software  Design  Description  (SDD)  and 
between  the  various  components  of  the  TPEM  CSCI. 


Table  6-1  Traceability  Matrix  between  the  SRS  and  the  SDD 


Software  Requirements  Specification 


Software  Design  Description 


SRS  Requirement 
Name 


CSCI  Capability 
Requirements 


CSCI  Capability 
Requirements 


CSCI  Capability 
Requirements 


Parabolic  Equation 
Initialization  (PEINIT) 
CSC 


Sine  Fast-Fourier 
Transform  (SINFFT)  SU 


SRS  Paragraph 
Number 


3.1 


3. 1.1.1 


3. 1.1.2 


3. 1.1.3 


3. 1.1.4 


3. 1.1.5 


3. 1.1.6 


3. 1.1.7 


3. 1.1.8 


3. 1.1.9 


Software  Design 
Description  Name 


CSCI-WIDE  DESIGN 
DECISIONS 


CSCI  Components 


Concept  of  Execution 


Parabolic  Equation 
Initialization  (PEINIT) 
CSC 


SDD  Paragraph 
Number 


3. 


Fast-Fourier  Transform 
(FFT)  SU 


Sine  Fast-Fourier 
Transform  (SINFFT)  SU 


Trace  Launch  Angle 
(TRACER)  SU 


5.1.7 


Table  6-1  Traceability  Matrix  between  the  SRS  and  the  SDD  (con’t 


Software  Requirements  Specification  Software  Design  Description 


SRS  Requirement 


SRS  Paragraph 


Software  Design 


SDD  Paragraph 


Parabolic  Equation  Step 
(PESTEP)  SU 


DOSHIFT  SU 


GETALN  SU 


Remove  Duplicate 
Refractivity  Levels 
MDUP)  SU 


CSCI  External  Interface 
Requirements 


CSCI  Internal  Interface 
Requirements 


CSCI  Internal  Data 
Requirements 


Number 


3.1.1.10 


Name 


Free-Space  Propagator 
Phase  Term  (PHASE!)  SU 


Environmental  Propagator  3.1.1.11 
Phase  Term  (PHASE2)  SU 


3.1.1.12 


5.1.10 


3.1.1.13 


Description  Name  Number 


Free-Space  Propagator 
Phase  Term  (PHASED  SU 


Environmental  Propagator  5.1.11 
Phase  Term  (PHASE2)  SU 


5.1.12 


5.1.13 


3. 1.2.1 


3. 1.2.2 


3. 1.2.3 


3. 1.2.4 


3. 1.2.5 


3. 1.2.6 


3. 1.2.7 


DOSHIFT  SU 


GETALN  SU 


Remove  Duplicate 
Refractivity  Levels 
MDUP)  SU 


External  Interface 


Internal  Interface 


Internal  Data 
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Table  6-1  Traceability  Matrix  between  the  SRS  and  the  SDD  (con’t) 


Software  Requirements  Specification 

Software  Design  Description 

SRS  Requirement 

Name 

SRS  Paragraph 
Number 

Software  Design 
Description  Name 

SDD  Paragraph 
Number 

Environmental  Radio 
Refractivity  field  Data 
Element 

3.5.1 

Environmental  Radio 
Refractivity  field  Data 
Element 

7.2 

Terrmn  Profile  Data 

Element 

3.5.2 

Terrain  Profile  Data 

Element 

7.3 

Implementation  and 
Application  Considerations 

3.10.1 

Implementation  and 
Application  Considerations 

7.1 
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7.  NOTES 


7.1  TPEM  CSCI  Implementation  And  Application  Considerations 

The  calling  TESS  CSCI  application  will  determine  the  employment  of  the  TPEM 
CSCI.  However,  the  intensive  computational  nature  of  the  TPEM  CSCI  must  be  taken 
into  consideration  when  designing  an  efBcient  calling  application.  For  this  reason,  the 
TPEM  CSCI  is  designed  with  flexibility  for  various  hardware  suites  and  computer 
resource  management  considerations.  This  TPEM  CSCI  applies  only  to  a  coverage  and 
loss  diagram  application.  The  following  highly  recommended  guidelines  are  provided  to 
aid  in  the  design  of  a  coverage  or  loss  diagram  application  which  will  most  efficiently 
employ  the  TPEM  CSCI. 

The  TPEM  CSCI  propagation  loss  calculations  are  independent  of  any  target  or 
receiver  considerations,  therefore,  for  any  EM  emitter,  one  execution  of  the  TPEM  CSCI 
may  be  used  to  create  both  a  coverage  diagram  and  a  loss  diagram.  Since  both  execution 
time  and  computer  memory  allocation  are  a  consideration  when  employing  this  model,  it  is 
most  efficient  and  appropriate  to  execute  the  TPEM  CSCI  for  a  particular  EM 
system/environmental/terrain  combination  before  executing  any  application.  The  output  of 
the  TPEM  CSCI  is  stored  in  a  file  which  can  be  accessed  by  multiple  applications. 

For  example,  the  TESS  operator  may  desire  a  coverage  diagram  for  one  particular 
radar  system.  At  the  beginning  of  the  coverage  diagram  application,  a  check  would  be 
made  for  the  existence  of  a  previously  created  TPEM  CSCI  output  file  appropriate  for  the 
EM  system,  environmental,  and  terrain  conditions.  If  such  a  file  exists,  the  propagation 
loss  values  can  be  read  from  the  file  and  used  to  create  the  coverage  diagram.  If  the  file 
does  not  exist,  the  TPEM  CSCI  would  be  executed  to  create  one.  As  the  TPEM  CSCI  is 
executing,  its  output  could  be  routed  simultaneously  to  a  graphics  display  device  and  a 
file.  This  file  could  then  be  used  in  the  loss  diagram  application  should  the  operator  also 
choose  it.  Two  distinct  applications  therefore,  are  achieved  with  only  one  execution  of  the 
TPEM  CSCI.  Additionally,  should  the  operator  desire  an  individual  coverage  diagram  for 
each  of  multiple  targets,  or  a  single  coverage  diagram  illustrating  radar  detection  of  a  low- 
flying  missile  superimposed  upon  a  coverage  diagram  illustrating  his  own  radar's 
vulnerability  as  defined  by  the  missile's  ESM  receiver,  only  a  single  execution  of  the 
TPEM  CSCI  would  be  required,  thereby  saving  valuable  computer  resources. 
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7.2  Environmental  Radio  Refractivity  Field  Data  Elements 


The  radio-refractivity  field,  i.e.  the  profiles  of  M-units  versus  height,  should  consist 
of  vertical  piece-wise  linear  profiles  specified  by  couplets  of  height  in  meters  above  mean 
sea  level  and  modified  refractivity  (M-units)  at  multiple  arbitrary  ranges.  All  vertical 
profiles  must  contain  the  same  number  of  vertical  data  points,  and  be  specified  such  that 
each  numbered  data  point  corresponds  to  like-numbered  points  (i.e.  features)  in  the  other 
profiles.  The  first  numbered  data  point  of  each  profile  must  correspond  to  a  height  of  zero 
mean  sea  level  and  the  last  numbered  data  point  must  correspond  to  a  height  such  that  the 
modified  refractivity  for  all  greater  heights  is  well  represented  by  extrapolation  using  the 
two  highest  profile  points  specified.  Within  each  profile,  each  numbered  data  point  must 
correspond  to  a  height  greater  than  or  equal  to  the  height  of  the  previous  data  point.  Note 
that  this  requirement  allows  for  a  profile  which  contains  redundant  data  points.  Note  also 
that  all  significant  features  of  the  refi'activity  profiles  must  be  specified,  even  if  they  are 
above  the  maximum  output  height  specified  for  a  particular  application  of  TPEM. 

The  TESS  CSCI  application  designer  and  the  TESS  operator  share  responsibility 
for  determining  appropriate  environmental  inputs.  For  example,  a  loss  diagram  may  be 
used  to  consider  a  surface-to-surface  radar  detection  problem.  Since  the  operator  is 
interested  in  surface-to-surface,  he  may  truncate  the  profile  assuming  that  effects  from 
elevated  ducting  conditions  are  negligible.  It  may  be  however,  that  the  elevated  duct  does 
indeed  produce  a  significant  effect.  The  operator  should  insure  therefore,  that  the 
maximum  height  of  the  profile  allows  for  the  inclusion  of  all  significant  refractive  features. 

This  specification  allows  a  complicated  refractivity  field  to  be  described  with  a 
minimum  of  data  points.  For  example,  a  field  in  which  a  single  trapping  layer  linearly 
descends  with  increasing  range  can  be  described  with  just  two  profiles  containing  only 
four  data  points  each,  frame  (a)  of  Figure  7-1.  In  the  same  manner,  other  evolutions  of 
refractive  layers  may  be  described.  Frames  (b)  and  (c)  of  Figure  7-1  show  two  possible 
scenarios  for  the  development  of  a  trapping  layer.  The  scenario  of  choice  is  the  one  which 
is  consistent  with  the  true  thermodynamical  and  hydrological  layering  of  the  atmosphere. 
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PROFILE  1 


PROFILE  2 


(a) 


Figure  7-1  Idealized  M-unit  profiles  (solid)  and  lines  of  interpolation  (dashed) 


The  two  TPEM  CSCI  implementation  constants  mxlvls  and  mxnprof  xokr  to  the 
maximum  number  of  height  levels  allowed  within  a  profile  and  the  maximum  number  of 
profiles  allowed  by  the  TPEM  CSCI.  These  two  constants  must  be  specified  when  the 
TPEM  CSCI  is  compiled  and  be  carefully  chosen  to  be  just  large  enough  for  all  calling 
applications  but  small  enough  to  efficiently  conserve  both  computer  memory  and 
execution  time  of  the  TPEM  CSCI.  While  there  is  no  upper  limit  on  mxlvls  imposed  by 
the  TPEM  CSCI,  increasing  the  number  of  environmental  levels  will  increase  the  TPEM 
CSCI  execution  time.  Increasing  the  execution  time  for  any  particular  application  denies 
valuable  computer  resources  to  other  applications,  and  thus  makes  the  application  less 
likely  to  be  used  by  an  operator. 


Two  external  implementation  data  variables  applicable  to  both  the  TESS  operator 
and  to  the  calling  application  designer  are  x^ax,  the  maximum  TPEM  CSCI  output  range, 
andj;,^,  the  maximum  TPEM  CSCI  output  height.  These  two  parameters  are  required  by 
the  TPEM  CSCI  to  determine  the  horizontal  and  vertical  resolution  respectively  for 
internal  range  and  height  calculations  based  on  the  current  values  of  vnp.nrout  and 
vnp.nzout.  Any  value  of  Xmax^'^^y max  is  allowed  for  the  convenience  of  the  TESS  operator 
and  the  calling  application  designer.  For  example,  the  TESS  operator  may  desire  a 
coverage  diagram  which  extends  to  a  range  of  500  kilometers  (km).  In  addition  to 
accommodating  the  desires  of  the  operator,  specification  of  such  a  convenient  maximum 
range  eases  the  burden  for  the  application  designer  in  determining  incremental  tick  marks 
for  the  horizontal  axis  of  the  display. 

Provided  the  value  of  the  parameter  ef.lerrll  is  set  to  ‘.false.’,  if  the  furthest 
environment  profile  range  is  less  than  Xmax',  the  TPEM  CSCI  will  automatically  create  an 
environment  profile  at  x^ax  equal  to  the  last  profile  specified,  making  the  environment 
homogeneous  from  the  range  of  the  last  profile  specified  to  Xmax-  For  example,  a  profile  is 
input  with  an  accompanying  range  of  450  km.  If  the  TESS  operator  chooses  an  x^ax  of 
500  km,  the  TPEM  CSCI  will  continue  loss  calculations  to  500  km,  keeping  the 
refractivity  environment  homogeneous  from  450  km  to  500  km. 

If  ef.lerrll  is  set  to  ‘.true.’  and  the  furthest  environment  profile  range  is  less  than 
Xmax,  then  an  error  will  be  returned  in  terror  from  the  PEINIT  CSC.  This  is  to  allow  the 
TESS  CSCI  application  designer  greater  flexibility  in  how  environment  data  is  handled. 


7.3  Terrain  Profile  Data  Element 

The  terrain  profile  should  consist  of  linear  piece-wise  segments  specified  in  terms 
of  range/height  pairs.  The  TPEM  CSCI  implementation  constant  mxter  refers  to  the 
maximum  number  of  height/range  pairs  allowed  within  a  terrain  profile.  This  constant 
must  be  specified  when  the  TPEM  CSCI  is  compiled  and  must  be  carefully  chosen  to  be 
just  large  enough  for  all  calling  applications  but  small  enough  to  efficiently  conserve  both 
computer  memory  and  execution  time  of  the  TPEM  CSCI.  While  there  is  no  upper  limit 
on  mxter  imposed  by  the  TPEM  CSCI,  increasing  the  number  of  terrain  points  will 
increase  the  TPEM  CSCI  execution  time.  Increasing  the  execution  time  for  any  particular 
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application  denies  valuable  computer  resources  to  other  applications,  and  thus  makes  the 
application  less  likely  to  be  used  by  an  operator. 

All  range  values  must  be  increasing,  and  the  first  terrain  height  value  must  be  at 
range  zero.  General  ground  composition  types  can  be  specified,  along  with  corresponding 
ranges  over  which  the  ground  type  is  to  be  applied.  If  ground  type  “User  Defined”  is 
specified  {trAgmclQ  =  5),  then  numeric  values  of  relative  permittivity  and  conductivity 
must  be  given.  If  horizontal  antenna  polarization  is  specified,  the  TPEM  CSCI  will 
assume  perfect  conductivity  for  the  entire  terrain  profile  and  will  ignore  any  information 
regarding  ground  composition.  If  vertical  antenna  polarization  is  specified,  then 
information  regarding  ground  composition  must  also  be  specified. 

The  maximum  height,  ymax,  must  always  be  greater  than  the  minimum  height,  ymm- 
Also,  a  value  of  ymax,  must  be  given  such  that  it  is  larger  than  the  maximum  elevation 
height  along  a  specified  terrain  profile. 

Provided  ef.lerr6  is  set  to  ‘.false.’,  if  the  furthest  range  point  in  the  terrain  profile  is 
less  than  Xmax,  the  TPEM  CSCI  should  automatically  create  a  height/range  pair  as  part  of 
the  terrain  profile  at  Xmax  with  elevation  height  equal  to  the  last  height  specified  in  the 
profile,  making  the  terrain  profile  flat  from  the  range  of  the  last  profile  point  specified  to 
Xmax-  For  example,  a  terrain  profile  is  input  where  the  last  height/range  pair  is  50  meters 
(m)  in  height  with  an  accompanying  range  of  95  km.  If  the  TESS  operator  chooses  an 
Xmax  of  100  km,  the  TPEM  CSCI  should  continue  loss  calculations  to  100  km,  keeping  the 
terrain  profile  flat  from  95  km  to  100  km  with  an  elevation  height  of  50  m. 

If  ef.lerr6  is  set  to  ‘.true.’  and  the  furthest  range  point  is  less  than  Xmax,  then  an 
error  should  be  returned  in  terror  from  the  PEINIT  CSC.  This  is  to  allow  the  TESS  CSCI 
application  designer  greater  flexibility  in  how  terrain  data  is  handled. 

7.4  Acronym  and  Abbreviations 

The  following  table.  Table  7-1,  is  a  glossary  of  acronyms  and  abbreviations  used 
Avithin  this  document. 
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Table  7-1  Acronyms  and  Abbreviations 


Table  7-1  Acronyms  and  abbreviations  (con’t) 


Term 

Deflnition 

MHz 

MegaHertz 

M-unit 

Refractivity  meaurement  unit 

nV  /  m 

Microvolts  per  meter 

N/A 

Not  applicable 

NINT 

Round  real  number 

p  Space 

Phase  space 

radian 

Unit  of  angular  measurement 

PE 

Parabolic  Equation 

REAL 

Real  part  of  complex  number 

SIN 

Sine  function 

S/m 

Conductivity  unit  Siemans  per  meter 

Sin(X)/X 

Sine(X)/X 

SRS 

Software  Requirements  Specification 

SU 

Software  unit 

TPEM 

Terrain  Parabolic  Equation  Model 

LESS 

Tactical  Environmental  Support  System 
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7.5  SDD  Variable  Name,  FORTRAN  Variable  Name  Cross  Reference 


The  following  table,  Table  7-2,  is  a  cross  reference  of  variable  names  used  within 
the  body  of  this  document  and  the  FORTRAN  variable  names  as  used  within  the  TPEM 
CSCI  source  code  of  Section  8,  Appendix  A.  Included  are  the  SDD  variable  name,  its 
description,  the  FORTRAN  source  code  name,  and  the  designation  of  the  FORTRAN 
COMMON  BLOCK  name  if  applicable. 

Table  7-2  Variable  name  cross  reference 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

a 

Argument  of  internal  function  in 
TRACEA  SU 

a 

N/A 

a 

Internal  variable  in  TRACEA  SU 

a 

N/A 

Angle  of  the  ray  before  trace  step 

aO 

N/A 

Angle  of  the  ray  after  trace  step 

al 

N/A 

^crit 

Critical  angle,  angle  above  which  no 
rays  are  trapped  for  ducting 
environment 

acrit 

N/A 

Specified  elevation  angle 

u 

N/A 

a, 

Critical  angle  determined  from  antref 
and  above 

acrit  1 

N/A 

^2 

Critical  angle  determined  from  antref 
and  below 

acrit2 

N/A 

«v 

Vertical  polarization  impedance 
tenn  ->  ikJR„^ 

alphav 

impedance 

CCpat 

Adjusted  antenna  elevation  angle 

udif 

N/A 

a 

mxcur 

Maximum  of  local  angle  along  ray 

amxcur 

N/A 

^mxcurl 

Last  maximum  of  local  angle  along 
ray 

amxcurl 

N/A 

angu 

Maximum  tangent  angle  from  source 
to  terrain  peaks. 

angu 

N/A 

antf^c 

Antenna  pattern  parameter  (depends 

^ptm 

afac 

pattern 

Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

ant^ 

Transmitting  antenna  height  times 
the  free  space  wavenumber  ko 

antko 

N/A 

antref 

Transmitting  anteima  height  relative 
to  the  ground  height  at  range  0. 

antref 

misevar 

Complex  coefficient  of  partial  linear 
solution  to  homogeneous  equation 

ar 

N/A 

Partial  linear  solution  to 
homogeneous  equation 

arx 

N/A 

Starting  launch  angle  in  radians 

as 

N/A 

^sl 

Last  starting  launch  angle  value 

asl 

N/A 

b 

Argument  of  internal  function  in 
TRACEA  SU 

b 

N/A 

K 

Complex  coefficient  of  partial  linear 
solution  to  homogeneous  equation 

br 

N/A 

K 

Partial  linear  solution  to 
homogeneous  equation 

brx 

N/A 

c 

Argument  of  internal  function  in 
TRACEA  SU 

c 

N/A 

Speed  of  light  in  m/s 

cO 

N/A 

c, 

Coefficient  used  in  vertical 
polarization  calculations 

cl 

impedance 

^IC 

summation  argument  in  determining 

Cl 

clc 

N/A 

CiM 

Constant  for  each  calculated 
a  used  in  C,  calculation 

elm 

impedance 

Q 

Coefficient  used  in  vertical 
polarization  calculations 

c2 

impedance 

c 

^2C 

summation  argument  in  determining 
b 

c2c 

N/A 

c 

Constant  for  each  calculated 
a  used  in  C  calculation 

V  ^ 

c2m 

impedance 

^ak 

Double  precision  internal  variable  in 
PHASEl  SU 

cak 

N/A 

cd 

RAyiji)  or-i?^f,(//)  depending  on 
power  index 

cd 

N/A 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

cnst 

Constant  equals 

cnst 

miscvar 

con 

con 

pevar 

Ap 

Mesh  size  in  angle-  (or  p-)  space 

delp 

miscvar 

A0 

Difference  between  mesh  points  in  p- 
space 

dtheta 

N/A 

^term 

Field  due  a  real  point  source  at 
height 

dterm 

N/A 

dM{j)ldh 

Gradient  offirst  profile  at  inM- 
units/meter 

dmdh(jl) 

trvar 

Output  range  step 

drout 

rhstps 

Ax. 

Kq 

Internal  variable  in  PHASEl  SU 

drfk 

N/A 

PE  range  step 

dr 

rhstps 

AXy>^2 

V2  PE  range  step 

dr2 

rhstps 

Output  height  increment 

dzout 

rhstps 

^PB 

Bin  width  in  z  space 

delz 

pevar 

^PE2 

2.  * 

dz2 

pevar 

ef 

Error  flag  structure  for  external 
implementation  constants 

ef 

N/A 

ef.lerrlC 

Element  of  user-provided  error  flag 
structure  ef  that  will  trap  on  certain 
errors  if  set  to  .TRUE 

eflerrb 

N/A 

efJerrll 

Element  of  user-provided  error  flag 
structure  that  will  trap  on  certain 
errors  if  set  to  .TRUE 

ef.leiTl2 

N/A 

elerrll 

Element  of  user-provided  error  flag 
structure  ef  that  will  trap  on  certain 
errors  if  set  to  .TRUE 

elerrl2 

N/A 

Table7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

envpr 

Complex  refractivity  profile  array 
interpolated  every  in  height 

envpr 

arrays 

Relative  permittivity 

epsilon 

N/A 

/(«) 

Anteima  pattern  factor  for  specified 
elevation  angle 

patfac 

N/A 

faCo 

Antenna  pattern  factor  for  direct  ray 
angle 

facd 

N/A 

Mr 

Antenna  pattern  factor  for  reflected 
ray  angle 

facr 

N/A 

farray 

Field  array  to  be  propagated  one 
range  step  in  free  space 

farray 

N/A 

fMHz 

Frequency 

sv.ffeq 

N/A 

ffac 

Propagation  factor  at  specified 
height 

getpfac 

N/A 

FILT 

Cosine-tapered  (Tukey)  filter  array 

filt 

arrays 

f 

J  norm 

Normalization  factor 

fhorm 

miscvar 

fr 

Interpolation  fraction 

fr 

N/A 

frac 

Fractional  distance  from  ph  to  pi 2 

frac 

N/A 

frac 

Fraction  variable  used  internally  in 
PROFREF  SU 

frac 

N/A 

frsp 

Complex  free  space  propagator  term 
array 

frsp 

arrays 

Free  space  loss  at 

fslrout 

N/A 

fter 

Logical  flag  indicating  if  performing 
terrain  case 

fter 

miscvar 

p 

Fraction  used  in  the  interpolation  of 
profiles  in  the  REFINTER  SU 

fV 

N/A 

grad 

Gradient  of  current  refractivity  layer 

grad 

N/A 

gradj 

Gradient  of f"  refractivity  layer 

grad 

N/A 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

K 

Height  of  the  ray  before  the  trace 
step 

hO 

N/A 

Height  of  the  ray  after  the  trace  step 

hi 

N/A 

^dif 

Height  difference  between  last  two 
differing  height  levels  in  each 
reff activity  profile 

hdif 

N/A 

Maximum  height  at  which  the 
refractivity  profile  is  extrapolated 

hlarge 

N/A 

^ref 

Heights  of  refractivity  profile  with 
respect  to  local  groimd  height 

href 

profwref 

htdum 

Dummy  array  containing  height 
values  for  current  (horizontally 
interpolated)  profile 

htdum 

N/A 

hi 

PE  mesh  height  array  of  size  njj-^ 

ht 

parinit 

Maximum  calculation  height  with 
respect  XOymir,ter 

htlim 

miscvar 

h 

transmitter 

Transmitting  antenna  height  above 
the  local  ground 

sv.antht 

N/A 

i 

Imaginary;  =  complex  (0,1) 

qi 

misvar 

i 

Index  used  in  the  determination  of 
rfacl  and  rfac2 

i 

N/A 

i 

Index  used  in  PROFREF 

i 

N/A 

i 

Index  used  in  the  determination  of 
the  field  U{j)  in  XYINIT  SU 

i 

N/A 

i 

Index  used  in  the  filtering  of  the  frsp 
array  in  PHASE  1  SU 

i 

N/A 

1 

Index  used  in  determination  of 
>5/7(7)  in  PHASEISU 

I 

N/A 

I 

Index  used  in  the  determination  of 
profint  in  INTPROF  SU 

I 

N/A 

ibsml 

Flag  indicating  if  is  below 

mean  sea  level  in  PROFREF  SU 

ibsml 

N/A 

ic 

Counter  for  the  array 

ic 

N/A 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

^dn 

Index  used  to  increment  or 
decrement  the  initial  launch  angle 

Flag  indicating  if  last  profile  entered 
was  at  a  range  less  than 

idn 

N/A 

terror 

ierror 

N/A 

Index  indicating  whether  the 
refractivity  profile  is  to  be  referenced 
to  y^jnter  gTound  height 

above  V  . 

iflag 

N/A 

Counter  indicating  current  ground 
type  being  modeled 

ig 

impedance 

^hu 

Range  index  at  which  the  traced  ray 
has  reached  the  maximum 
calculation  height 

ihu 

N/A 

^ml 

Index  used  in  loops  for  counter 
decrements,  i.e.,  imi  =  /  -  1 

iml 

N/A 

Index  used  to  set  the  minimxmi 
propagation  factor  for  rfacl 

ipl 

N/A 

tpl 

Index  used  in  loops  for  counter 
increments,  i.e.  ip]  =  /  +  1 

ipl 

N/A 

Index  used  to  set  the  minimum 
propagation  factor  for  rfac2 

ip2 

N/A 

^  ptm 

Type  of  antenna  pattern  desired 

sv.ipat 

N/A 

^  ptm 

Antenna  pattern  type 

iptm 

N/A 

K 

Counter  for  current  profile 

is 

parinit 

^set 

Flag  to  test  whether  or  not  to  stop 
loop  used  to  determine  the  launch 
angle 

iset 

N/A 

Number  of  height  points 
corresponding  to  local  ground  height 
at  current  output  range 

izg 

N/A 

j 

Index  of  tlie  last  refiactivity  profile 

j 

N/A 

J 

Index  used  in  the  determination  of 
profint  in  INTPROF  SU 

j 

N/A 

J  end 

Index  at  which  valid  loss  values  in 
mloss  end 

jend 

N/A 

110 


Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

Jk 

Loop  index  used  in  PROFREF  SU 

jk 

N/A 

Jl 

Index  of  current  refractivity  layer  ray 
tracing  through 

jl 

N/A 

jls 

Index  of  the  refractivity  array  at 
which  the  antenna  height  is  located 

jls 

trvar 

A 

Index  used  in  PROFREF  SU 

js 

N/A 

J  start 

Index  at  which  valid  loss  values  in 
mloss  begin 

jstart 

N/A 

k 

Index  used  in  determination  of 
mloss 

k 

N/A 

k 

Index  used  in  PROFREF 

k 

N/A 

K 

Free-space  wave  number  =  27tl  X 

flko 

pevar 

^bin 

Number  of  bins  to  be  shifted 

kbin 

N/A 

Counter  for  terrain  profile 

kp 

N/A 

K 

Counter  for  terrain  profile 

kt 

N/A 

X 

Wave  length 

wl 

pevar 

Power  of  2  transform  size,  i.e. 

w  =  2  * 

In 

pevar 

loop 

Flag  used  to  test  whether  or  not  to 
stop  a  loop 

loop 

N/A 

Ivlep 

Number  of  height/refractivity  levels 
in  profile 

Ivlep 

parinit 

Ivlml 

Last  user-specified  level  in 
refractivity  profile 

Ivlml 

N/A 

lvlm2 

Second-to-last  user  specified  level  in 
refractivity  profile  (i.e., 

lvlm2 

N/A 

Modified  refractivity  at  antref 

rmatht 

N/A 

Ma 

Minimum  modified  refractivity 
above  antref 

rmina 

N/A 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

Mb 

Minimum  modified  refractivity 
below  antref 

rminb 

N/A 

mcDcn4 

7720x^/5  divided  by  4;  specifies  the 
length  of  the  filter  array 

maxn4 

N/A 

maxpts 

Maximum  size  of  arrays  for  the  real 
and  imaginary  fields 

maxpts 

N/A 

mloss 

Loss  values 

mloss 

N/A 

Mor 

Antenna  pattern  elevation  angle 

elv 

pattern 

^bwr 

Antenna  vertical  beam  width 

bw 

pattern 

Mmax 

Limiting  angle  for  Sn4(X)/X  and 
generic  height  finder  antenna  pattern 
factors 

Umax 

pattern 

mxlvls 

Maximum  number  of  height/M-imit 
levels 

mxlvls 

N/A 

rnxnfft 

Maximum  power  of  2  for  transform 
size 

mxnfft 

N/A 

mxrout 

Maximum  number  of  output  range 
points 

mxrout 

N/A 

mxter 

Maximum  number  of  height/range 
points  allowed  for  terrain  profile 

mxter 

N/A 

mxzout 

Maximum  number  of  output  height 
points 

mxzout 

N/A 

newl 

New  level  index  used  internally  in 
PROFREF  SU 

newl 

N/A 

"jft 

Transform  size 

n 

pevar 

nml 

nml 

pevar 

«/v/ 

Number  of  levels  in  new  profile 

nlvl 

profwref 

Final  number  of  refractivity  profiles 

np 

N/A 

Va  of 

n34 

pevar 

nvrout 

Number  of  output  range  points 

nvrout 

N/A 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 
COMMON 
BLOCK  name 

P  angle 

User  specified  maximum 
propagation  angle 

prang 

N/A 

pfacmin 

Minimum  propagation  factor 

pfacmin 

N/A 

71 

3.1415926 

pi 

N/A 

ph 

Point  one 

pll 

N/A 

ph 

Point  two 

pl2 

N/A 

plcnst 

Constant  used  in  determining 
propagation  loss  |201og|2A:^  |j 

plcnst 

miscvar 

pow 

Interpolated  amplitude  of  the  field  at 
the  receiver  height 

pow 

N/A 

profmt 

Profile  interpolated  to  every  Azp^. 
in  height 

profmt 

parinit 

range 

Range  for  profile  interpolation 

range 

N/A 

RaM) 

Array  of  to  the  //th  power 

(e.g.,  4) 

rav 

impedance 

refcoef 

Complex  reflection  coefficient 

refcoef 

N/A 

refdum 

Dummy  array  containing  refiractivity 
values  for  current  (horizontally 
interpolated)  profile 

refdum 

N/A 

refrrf 

Refractivity  array 

reffef 

profwref 

rf 

Refractivity  structure  for  external 
environmental  data  elements 

rf 

N/A 

rfacl 

Array  of  propagation  factors  at  valid 
output  height  points  for  range 

rfacl 

N/A 

rfac2 

Array  of  propagation  factors  at  valid 
output  height  points  for  range  Xp^ 

rfac2 

N/A 

rf 

Refractivity  structure  for  external 
environmental  data  elements 

rf 

N/A 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

rfhmsl 

2-dimensional  array  containing 
heights  with  respect  to  mean  sea 
level  of  each  profile.  Array  format 
must  be  hmsl(ij)  =  height  of  level 
of y*  profile.  y=l  for  range- 
independent  cases 

rfhmsl 

N/A 

rf.lvlep 

Number  of  levels  in  refractivity 
profile 

rf.lvlep 

N/A 

rf.nprof 

Number  of  profiles 

rfnprof 

N/A 

rf,refmsl 

2-dimensional  array  containing 
refractivity  with  respect  to  mean  sea 
level  of  each  profile.  Array  format 
must  be  refinslQJ)  =  M-unit  at 
level  of y‘^  profile.  j=l  for  range- 
independent  cases 

rf.  refmsl 

N/A 

rf.rngprof 

Ranges  of  each  profile.  mgproJ{i)  = 
range  of  /th  profile 

rf.rngprof 

N/A 

^hor 

Radar  horizon  range  based  on 
transmitter  height  htrammitur  and  0 
receiver  height 

rhor 

N/A 

Coefficient  used  in  Cj  and 
calculations 

rk 

impedance 

iarge 

Maximum  range  at  which  the 
refractivity  profile  is  extrapolated 

rlarge 

N/A 

Complex  refractive  index 

mg 

impedance 

^ng2 

Complex  refractive  index  squared 

mg2 

impedance 

^ref 

Range  at  which  the  ray  is  reflected 

rref 

N/A 

Ry 

Complex  root  of  quadratic  equation 
for  mixed  transform  method  based 
on  Kuttler’s  formulation 

root 

impedance 

D 

^term 

Field  due  to  an  image  point  source  at 
the  height 

rterm 

N/A 

rvl 

Range  of  the  last  refractivity  profile 

rvl 

N/A 

rv2 

Range  of  the  next  refractivity  profile 

rv2 

parinit 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

scd 

Terrain  slope  difference 

scd 

N/A 

e 

gain 

Normalization  factor 

sgain 

N/A 

a 

Conductivity 

sigma 

N/A 

SIN  (//,,) 

Sine  of  antenna  elevation  angle 

pelev 

pattern 

SIN  (a..) 

Sine  of  antenna  vertical  beam  width 

sbw 

pattern 

SIN  (a) 

Sine  of  specified  elevation  angle 

sang 

N/A 

slope 

Current  slope  of  terrain  segment 

slope 

N/A 

sip 

Slope  of  each  segment  of  terrain 

sip 

miscvar 

suml 

summation  term  in  determining 

suml 

N/A 

sum2 

summation  term  in  determining 

sum2 

N/A 

sv 

System  structure  for  external  system 
data  elements 

sv 

N/A 

sv.bwidth 

Half  power  (3  dB)  antenna  pattern 
beamwidth 

sv.bwidth 

N/A 

sv.elev 

Antenna  pattern  elevation  angle 

sv.elev 

N/A 

sv,polar 

Character  string  indicating 
polarization 

sv.  polar 

N/A 

o 

15  degrees  in  radians 

degl5 

N/A 

^  luanch 

Launch  angle 

thetalaunch 

trvar 

0 

max 

Maximum  propagation  angle  in  PE 
calculations 

thetamax 

miscvar 

tr 

Terrain  structure  for  external  terrain 
data  elements 

tr 

N/A 

tr.  dielec 

2-dimensional  array  containing  the 
relative  permittivity  and  conductivity 
for  user  defined  terrain 

tr.dielec 

N/A 

Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

Number  of  different  ground  types 
specified 

tr.igr 

N/A 

trJgrnd 

Type  of  ground  composition  for 
given  terrain  profile 

tr.igmd 

N/A 

tr.itp 

Number  of  points  in  profile 

tr.itp 

N/A 

tr.rgrnd 

Ranges  at  wliich  the  ground  types 
apply 

tr.rgrnd 

N/A 

trJerx 

Range  points  of  terrain  profile 

tr.terx 

N/A 

tr.teryii) 

Height  points  of  the  terrain  profile 

tr.tery(i) 

N/A 

u 

Complex  PE  field 

u 

arrays 

Uii) 

ui 

N/A 

Uu., 

Complex  field  at  previous  PE  range 

ulst 

arrays 

u  . 

ntm 

Uin-i) 

unmi 

N/A 

vnp 

INPUTVAR  structure  for  external 
implementation  constants 

vnp 

N/A 

vnp.nrout 

Integer  number  of  output  range 
points  desired 

vnp.nrout 

N/A 

vnp.nzout 

Integer  number  of  output  height 
points  desired 

vnp.nzout 

N/A 

vnp.propang 

Maximum  problem  angle  in  degrees 

vnp.propang 

N/A 

vr 

max 

Maximum  range 

vrmax 

N/A 

W 

Difference  equation  of  complex  PE 
field  array  (used  only  for  vertical 
polarization) 

w 

N/A 

X 

Real  part  of  field 

X 

N/A 

^0 

Range  of  ray  before  trace  step 

rO 

N/A 

JC, 

Range  of  ray  after  trace  step 

rl 

N/A 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

Current  PE  range 

r 

N/A 

Range  of  terrain  point 

xi 

N/A 

Last  PE  range 

rlast 

N/A 

^lin. 

90%  of  the  maximum  range, 
used  for  ray  tracing 

rlim 

trvar 

10  times  the  logarithm  of  xpE 

rlog 

N/A 

^loglst 

10  times  the  logarithm  of  xjast 

rloglst 

N/A 

^mj 

Range  of  terrain  point 

xml 

N/A 

Maximum  output  range 

rmax 

N/A 

Maximum  output  range 

vnp.rmax 

N/A 

Range  at  which  interpolation  for 
range-dependent  reffactivity  profiles 
is  performed 

nnid 

N/A 

Current  output  range  at  which  to 
store  the  height  of  traced  ray 

ro 

N/A 

Output  range 

rout 

N/A 

^PE 

PE  range 

r 

N/A 

^PE 

Range  at  which  valid  loss  values  will 
begin  to  be  calculated 

rpe 

misevar 

XX 

Fractional  range  at  which  to 
interpolate  the  propagation  factor 

XX 

N/A 

Y 

Complex  part  of  field 

X 

N/A 

ycH 

Height  of  the  terrain  at  the  current 

PE  range  relative  to  y„re/ 

ych 

N/A 

yet 

Height  of  tlie  terrain  at  the  current 

PE  range  relative  to 

yet 

N/A 

ycur 

Height  of  ground  at  current  PE  range 

ycur 

htvar 
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Table  7-2  Variable  name  cross  reference  (cont’d) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

y  curm 

Height  of  ground  midway  between 
last  and  current  PE  range 

ycurm 

htvar 

yi 

Height  of  terrain  point 

yi 

N/A 

y  last 

Height  of  ground  at  last  PE  range 

ylast 

htvar 

yiH 

Height  of  the  terrain  at  the  last  PE 
range  relative  to 

ylh 

N/A 

yiim 

Height  at  each  output  range  at  which 
the  last  valid  loss  value  exists 

hlim 

miscvar 

yit 

Height  of  the  terrain  at  the  last  PE 
range  relative  to 

ylt 

N/A 

y. 

Particular  solution  of  Kuttler’s 
difference  equation 

ym 

N/A 

ym 

Particular  solution  of  difference 
equation  (used  in  intermediate 
calculations  only  for  vertical 
polarization) 

ym 

N/A 

ymi 

Height  of  terrain  point 

yml 

N/A 

ymax 

Maximum  output  height 

vnp.hmax 

N/A 

ymin 

Minimum  output  height 

vnp.hmin 

N/A 

y  minter 

Reference  height  for  internal 
calculations  of  the  field  U  (minimum 
height  of  terrain  profile) 

hminter 

N/A 

y  mref 

Height  relative  to 

hmref 

miscvar 

yref 

Reference  height  at  current  range 
step 

yref 

N/A 

ytermax 

Maximum  height  of  terrain  profile 

htermax 

N/A 

^lim 

Height  limit  for  ray  trace 

zlim 

trvar 

Maximum  height  region  where  PE 
solution  is  valid 

zlim 

trvar 
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Table  7-2  Variable  name  cross  reference  (con’t) 


SDD  variable 

name 

Description 

FORTRAN 
source  code 

name 

FORTRAN 

COMMON 

BLOCK 

name 

^max 

Total  height  of  the  FFT/PE 
calculation  domain 

zmax 

pevar 

Ant 

Interpolated  ground  height  at  current 

range 

zint 

N/A 

^out 

Array  containing  all  output  height 
points 

zout 

fhstps 

Receiver  height 

height 

N/A 
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8.  APPENDIX  A:  Fortran  SOURCE  CODE  FOR  TPEM  CSCI 


c  *****************  THIS  FILE  CONTAINS  TPEM  MODEL  SUBROUTINES  *************** 

c  Author:  Amalia  E.  Barrios 
c  NCCOSC  RDT&E  DIV  D883 

c  49170  Propagation  Path 

c  San  Diego,  CA  92152-7385 

c  e-mail:  barrios@nosc.mil 

c  phone:  (619)  553-1429 

c  fax:  (619)  553-1417 

c  Summary:  These  routines  model  tropospheric  radiowave  propagation  over 

c  variable  terrain  and  calculates  propagation  loss  vs.  height  and 

c  range.  Propagation  loss  is  displayed  in  dB  contours  on  a  height  vs. 

c  range  plot.  TPEM  is  based  on  the  split-step  Fourier  PE  method  and 

c  was  originally  developed  from  an  early  PE  model  called  PEPC,  written 

c  by  Fred  Tappert.  Propagation  loss  over  variable  terrain  is  modeled 

c  by  shifting  the  field  an  appropriate  number  of  bin  widths  correspond- 

c  ing  to  the  height  of  the  ground.  The  field  is  determined  using  the 

c  smooth  earth  PE  method. 

Q  ***************************************************************************** 

c  Variables  in  small  letters  in  parameter  lists  are  variables  that  are  input 
c  or  passed  to  called  subroutines.  Variables  in  CAPS  in  parameter  lists  are 
c  returned  from  the  called  subroutines. 

^  ***************************************************************************** 
c  Main  Glossary  of  Common  Blocks  used  in  all  subroutines: 
c  ARRAYS: 

c  ENVPRO  =  Complex  array  containing  refractivity  exponential  term, 
c  i.e.  ENVPRO  =  exp[i  *  dr  *  k  *  le-6  *  M(z)  ] 

c  FILTO  =  Cosine-tapered  (Tukey)  filter  array. 

c  FRSPO  =  Complex  array  containing  free-space  propagator  exponential  term, 
c  i.e.,  FRSPO  =  exp[-i  *  dr  *  (k  -  sqrt(k**2  -  p**2))  ]. 

c  U()  =  Complex  array  containing  field  solution  at  current  PE  range, 
c  ULST 0  =  Complex  array  containg  field  solution  at  previous  PE  range. 

c  HTVAR: 

c  YLAST  =  Height  of  ground  in  meters  at  the  last  PE  range, 
c  YCUR  =  Height  of  ground  in  meters  at  the  current  PE  range. 

c  YCURM  =  Height  of  ground  in  meters  midway  between  last  and  current  PE  range 
c  step.  For  use  when  shifting  profiles  to  be  relative  to  the  local 

c  ground  height. 

c  IMPEDANCE: 

c  ALPHAV  =  Vertical  polarization  impedance  term  =  i*fko/rng. 
c  Cl  =  Coefficient  used  in  vertical  polarization  calculations, 

c  C2  =  Coefficient  used  in  vertical  polarization  calculations, 

c  CIM  =  Constant  for  each  calculated  ALPHAV  -  used  in  Cl  calculation, 

c  C2M  =  Constant  for  each  calculated  ALPHAV  -  used  in  C2  calculation, 

c  IG  =  Counter  indicating  current  ground  type  being  modeled, 
c  RAV()  =  Array  of  ROOT  to  the  i  *  th  power,  i.e.  RAV(I)  =  ROOT**I. 
c  RK  =  Coefficient  used  in  Cl  and  C2  calculations, 
c  RNG  =  Complex  refractive  index, 
c  RNG2  =  Complex  refractive  index  squared. 

c  ROOT  =  Complex  root  of  quadratic  equation  for  mixed  transform  method 
c  based  on  Kuttler's  formulation. 

c  MISCVAR: 

c  ANTREF  =  Transmitting  antenna  height  relative  to  the  reference 
c  height  HMINTER. 


c  CNST  =  Used  in  calculating  FRSP()  in  routine  PHASEl. 
c  CNST  =  DELP/FKO. 

c  DELP  =  Mesh  size  in  angle-  (or  p-)  space, 
c  FNORM  =  Normalization  factor  used  for  DFT. 

c  FTER  =  Logical  flag  -  .TRUE.=terrain  case,  . FALSE. =smooth  surface  case 
c  HLIM()  =  Axray  containing  height  at  each  output  range  at  which  the 
c  last  valid  loss  value  exists. 

c  HMREF  =  Height  relative  to  HMINTER.  Determined  from  user-provided 
c  minimum  height  VNP.HMIN.  That  is,  if  VNP.HMIN  is  minimum 

c  height  input  by  user  with  respect  to  mean  sea  level, 

c  and  HMINTER  is  internally  considered  the  new  origin, 

c  then  HMREF  =  VNP.HMIN  -  HMINTER. 

c  HTLIM  =  Maximum  desired  calculation  height  with  respect  to  HMINTER, 
c  i.e.,  HTLIM  =  VNP.HMAX-HMINTER. 

c  PLCNST  =  Constant  used  in  determining  propagation  loss, 
c  PLCNST  =  201og(2*FKO) . 

c  QI  =  Imaginary  i  ->  complex (0, 1) , 

c  RPE  =  Range  at  which  valid  loss  values  will  begin  to  be  calculated, 
c  THETAMAX  =  Maximum  propagation  angle  in  PE  calculations, 
c  SLP()  =  Slope  of  each  segment  of  terrain. 


c  PARINIT: 

c  HT()  =  PE  mesh  height  array  of  size  N. 

c  HTDUM{)  =  Dummy  array  containing  height  values  for  current  (horizontally 

c  interpolated)  profile. 

c  IS  =  Counter  for  current  profile  (for  range-dependent  cases) . 
c  LVLEP  =  Number  of  height/ref ractivity  levels  in  profile, 
c  PROFINTO  =  M-unit  profile  interpolated  to  every  DELZ  in  height, 
c  REFDUMO  =  Dummy  array  containing  M-unit  values  for  current  (horizontally 
c  interpolated)  profile. 

c  RV2  =  Range  of  the  next  ref ractivity  profile  (for  range-dependent  cases) . 
c  PATTERN: 

c  AFAC  =  Constant  used  in  determining  antenna  pattern  factors, 
c  AFAC  =  1.39157  /  sin(  bw  /  2  )  for  SIN(X)/X  and  height-finder, 

c  AFAC  =  (.5*ln(2) )/(sin(bw/2) )**2  for  GAUSSIAN, 

c  BW  =  Antenna  pattern  beamwidth  in  radians, 
c  ELV  =  Antenna  pattern  elevation  angle  in  radians, 
c  PELEV  =  Sine  of  elevation  angle, 
c  SBW  =  Sine  of  the  beamwidth. 

c  UMAX  =  Limiting  angle  used  in  30  dB  cut-off  point  for  SIN(X)/X  and 
c  generic  height-finder  antenna  pattern  factors. 

c  PEVAR: 

c  CON  =  l.e-6  *  FKO;  Constant  used  in  calculation  of  ENVPR  ( )  . 

c  DELZ  =  Bin  width  in  z-space  =  WL  /  (2*sin (THETAMAX)  )  . 

c  DZ2  =  2.  *  DELZ. 

c  FKO  =  Free- space  wavenumber  =  (2*pi)  /  WL 

c  LN  =  Power  of  2  transform  size,  i.e.  N  =  2**LN. 

c  N  =  Transform  size, 

c  N34  =  3/4  *  N. 

c  NMl  =  N-1. 

c  WL  =  Wavelength  in  meters. 

c  ZMAX  =  Maximum  height  of  PE  calculation  domain  =  N  *  DELZ. 
c  PROFWREF: 

c  HREFO  =  Heights  of  ref ractivity  profile  with  respect  to  local  ground 
c  height. 

c  NLVL  =  Number  of  levels  in  new  profile, 
c  REFREFO  =  Corresponding  ref  ractivity  array  for  HREFO  . 

c  RHSTPS: 

c  DR  =  PE  range  step  in  meters, 
c  DR2  =  1/2  PE  range  step  in  meters, 
c  DROUT  =  Output  range  step  in  meters, 
c  DZOUT  =  Output  height  increment  in  meters. 
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c  ZOUTO  =  Array  containing  all  output  height  points. 


c  TRVAR: 

c  DMDH()  =  Gradients  of  first  profile  in  M-units/meters . 
c  JLS  =  Index  of  refractivity  array  at  which  antenna  height  is  located . 
c  RLIM  =  90%  of  maximum  range  RMAX  -  used  for  ray  tracing, 
c  THETALAUNCH  =  Angle  in  radians  of  launch  angle  for  which,  when  traced, 

c  height  of  the  ray  at  each  output  range  step  is  stored, 

c  ZLIM  =  Height  limit  for  ray  trace. 
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8.1  Subroutine  PEINIT 


c  ***************************  SUBROUTINE  PEINIT  ****************************** 
c  Module  Name:  PEINIT 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Initializes  all  variables  used  in  TPEM  subroutines  for  PE  calcula- 
c  tions. 

c  Version  Number:  1.5 


c  INPUTS: 

c  Argument  list:  EF (errorf lag)  structure,  RF (refractivity)  structure, 
c  SV (systemvar)  structure,  TR (terrain)  structure, 

c  VNP (inputvar)  structure 

c  OUTPUTS: 

c  Argument  list:  HMINTER,  lERROR,  ROUT 

c  Common:  AFAC,  ALPHAV,  ANTREF,  BW,  Cl,  C2,  ClM,  C2M,  CNST,  CON, 
c  DELP,  DELZ,  DMDH { ) ,  DR,  DR2,  DROUT,  DZ2,  DZOUT,  ELV,  ENVPR ( ) , 

c  FILTO,  FKO,  FNORM,  FRSP(),  FTER,  HLIM(),  HMREF,  HT  ()  ,  HTDUM(), 

c  HTLIM,  IG,  IS,  JLS,  LN,  LVLEP,  N,  N34,  NMl,  PELEV,  PLCNST, 

c  PROFINTO,  QI,  RAV{),  REFDUM  ( )  ,  RPE,  RK,  RLIM,  RNG,  RNG2,  ROOT, 

c  RV2,  SBW,  SLP(),  THETALAUNCH,  THETAMAX,  U(),  UMAX,  WL,  YCUR, 

c  YCURM,  YLAST,  ZLIM,  ZMAX,  ZOUT { ) 

c 


c  FILES  INCLUDED:  FFTSIZ.INC,  TPEM. INC 
c  CALLING  ROUTINES:  MAIN  DRIVER  PROGRAM  or  TESS  CSCI 


c  ROUTINES  CALLED:  DIEINIT,  FFT,  GETFFTSZ,  INTPROF,  PHASEl,  PHASE2,  PROFREF, 
c  REFINIT,  TRACEA,  TRACER,  XYINIT 


c  GLOSSARY: 
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EF  =  Error  flag  structure  for  external  implementation  constants. 

EF.LERR6  =  Logical  flag  that  allows  for  greater  flexibility  in 
allowing  error  -6  to  be  bypassed.  If  set  to  .TRUE, 
then  trapping  for  this  erroroccurs,  otherwise  it  can 
be  totally  ignored  by  main  driver  program.  (Within  the 
TPEM  program  it  is  handled  as  a  warning) .  If  this 
error  is  bypassed  (EF,LERR6  =  .FALSE.)  terrain  profile 
is  extended  to  RMAX  with  same  elevation  height  of  last 
valid  terrain  profile  point. 

EF.LERR12  =  Same  as  EF.LERR6  -  allows  for  trapping  of  this  error. 

If  LERR12  =  .FALSE.,  then  (for  range-dependent  case) 
if  range  of  last  refractivity  profile  entered  is  less 
than  RMAX,  the  environment  is  treated  as  homogeneous 
from  the  last  profile  entered  to  RMAX. 

RF  =  Refractivity  structure  for  external  environmental  data  elements. 

RF. LVLEP  =  Number  of  levels  in  refractivity  profile  (for  range 
dependent  case  all  profiles  must  have  same  number  of 
levels) . 

RF.REFMSL{,)  =  2-dimensional  array  containing  refractivity  with 
respect  to  mean  sea  level  of  each  profile.  Array 
format  must  be  REFMSL(I,J)  =  M-unit  value  at  Ith 
level  of  Jth  profile.  J  =  1  for  range- independent 
cases . 

RF.HMSL(,)  =  2-dimensional  array  containing  heights  in  meters  with 

respect  to  mean  sea  level  of  each  profile.  Array  format 
must  be  HMSL(I,J)  =  height  of  Ith  level  of  Jth  profile. 

J  =  1  for  range-independent  cases. 

RF.RNGPROFO  =  Ranges  of  each  profile  in  meters,  i.e.,  RNGPROF(I)  = 


123 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


range  of  Ith  profile.  RNGPR0F{1)  should  always  be 
equal  to  0 . 

RF.NPROF  =  Number  of  profiles.  Equals  1  for  range-independent  cases. 
SV  =  System  structure  for  external  system  data  elements. 

SV.FREQ  =  Frequency  in  MHz. 

SV.ANTHT  =  Transmitting  antenna  height  above  local  ground  in  meters. 
SV.BWIDTH  -  Half-power  (3  dB)  antenna  pattern  beamwidth  in  degrees 
(.5  to  45.) . 

SV.ELEV  =  Antenna  pattern  elevation  angle  in  degrees.  (-10  to  10) . 

SV. POLAR  =  1-character  string  indicating  polarization.  H-horizontal, 
V-vertical 

SV.IPAT  =  Integer  value  indicating  type  of  antenna  pattern  desired. 
IPAT  =  0  ->  Omni 

IPAT  =  1  ->  gaussian 

IPAT  =  2  ->  sine  x 

IPAT  =  3  ->  csc**2  X 

IPAT  =  4  ->  generic  height -finder 
TR  =  Terrain  structure  for  external  terrain  data  elements. 

TR.TERXO  =  Range  points  of  terrain  profile  in  meters. 

TR.TERYO  =  Reight  points  of  terrain  profile  in  meters. 

TR.ITP  =  Number  of  height/range  pairs  in  profile. 

TR.IGR  =  Number  of  different  ground  types  specified. 

TR.IGRNDO  =  Type  of  ground  composition  for  given  terrain  profile  - 
can  vary  with  range.  Different  ground  types  are: 

0  =  sea  water,  1  =  fresh  water,  2  =  wet  ground, 

3  =  medium  dry  ground,  4  =  very  dry  ground, 

5  =  user  defined  (in  which  case,  values  of  relative 
permittivity  and  conductivity  must  be  given) . 

TR.RGRNDO  =  Ranges  at  which  the  ground  types  apply, 

TR. DIELEC (,)  =  2-dimensional  array  containing  the  relative 

permittivity  and  conductivity;  DIELEC (l,i)  and 
DIELEC(2,i),  respectively.  Only  needs  to  be  specified 
if  using  IGRND(i)  =  5,  otherwise,  TPEM  will 
calculate  based  on  frequency  and  ground  types  0-4. 

VNP  =  Inputvar  structure  for  external  implementation  constants. 

VNP.HMAX  =  Maximtim  output  height  with  respect  to  m.s.l.  in  meters. 

VNP.HMIN  =  Minimum  output  height  with  respect  to  m.s.l.  in  meters. 

VNP.RMAX  =  Maximum  output  range  in  meters. 

VNP.NZOUT  =  Integer  number  of  output  height  points  desired. 

VNP.NROUT  =  Integer  number  of  output  range  points  desired. 

VNP. PROPANG  =  Maximum  problem  (propagation)  angle  in  degrees 

desired  for  solution.  If  set  to  0.,  then  TPEM  will 
determine  it ' s  own. 

HMINTER  =  Height  of  the  minimum  elevation  of  terrain  profile.  This 

will  be  used  to  adjust  entire  terrain  profile  so  subsequent 
loss  values  returned  will  be  referenced  to  this  height. 
lERROR  =  Integer  value  that  is  returned  if  any  errors  exist  in  input  data 
-6  :  Last  range  in  terrain  profile  is  less  than  VNP.RMAX.  (Will 
only  return  this  error  if  error  flag  EF.LERR6  is  set  to 
. TRUE . ) . 

-8  :  VNP.HMAX  is  less  than  maximum  height  of  terrain  profile. 

-12  :  Range  of  last  refractivity  profile  entered  (for  range  depen¬ 
dent  case)  is  less  than  RMAX.  (This  is  returned  from  subrou¬ 
tine  REFINIT) .  Will  only  return  this  error  if  error  flag 
EF.LERR12  is  set  to  .TRUE.). 

-14  :  Last  gradient  in  any  refractivity  profile  entered  is 
negative . 

(This  is  returned  from  REFINIT) . 

-17  :  Range  points  of  terrain  profile  is  not  increasing. 

-18  :  First  range  point  is  not  0. 

-42  :  Minimum  height  input  by  user  (VNP.HMIN)  is  greater  then 
maximum  height  (VNP.HMAX)  . 

ROUT  =  Output  range  point  (meters)  -  initialized  in  this  routine 


c  For  output  variables  in  common  blocks,  look  in  main  glossary  for 
c  associated  common  blocks  for  variable  definitions. 


124 


c  Coirunon  blocks:  variables 
C  ARRAYS:  ENVPR  ( )  ,  FILT  ( )  ,  FRSP  ( )  ,  U() 

c  PEVAR:  CON,  DELZ,  DZ2,  FKO,  LN,  N,  N34,  NMl,  WL,  ZMAX, 

c  RHSTPS:  DR,  DR2,  DROUT,  DZOUT,  ZOUT() 

c  MISCVAR:  ANTREF,  CNST,  DELP,  FNORM,  FTER,  HLIM ( )  ,  HMREF,  HTLIM, 

c  PLCNST,  QI,  RPE,  SLP { ) ,  THETAMAX 

c  PATTERN:  AFAC,  BW,  ELV,  PELEV,  SBW,  UMAX 

c  PARINIT:  HT(),  HTDUMO,  IS,  LVLEP,  PROFINT  ( )  ,  REFDUM(),  RV2 

c  HTVAR:  YCUR,  YCURM,  YLAST 

c  TRVAR:  DMDH  ( )  ,  JLS,  RLIM,  THETALAUNCH,  ZLIM 

c  IMPEDANCE:  ALPHAV,  Cl,  C2,  CIM,  C2M,  IG,  RAV(),  RK,  RNG,  RNG2,  ROOT 
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Local  Variables: 

ACRIT  =  Critical  angle,  i.e,,  angle  above  which  no  rays  are  trapped 
for  ducting  environment. 

ANGLE  =  Tangent  ray  angle  from  source  to  each  terrain  peak  along 
profile . 

ANGU  =  Maximum  tangent  ray  angle  from  souce  to  terrain  peak  along 
terrain  profile  path 

BUGFIX  =  Dummy  variable  used  to  push/move  bits  in  EOF  statement. 

This  is  a  known  bug  in  MS  Fortran  Powerstation  1.0  and  is 
not  necessary  for  other  flavors  of  Fortran. 

CO  =  Speed  of  light  in  m/s 

CIC  =  Intermediate  complex  number  used  to  calculate  Cl 
C2C  =  Intermediate  complex  number  used  to  calculate  C2 
CN75  =  4  *  pi  /  N 

CX  =  RAV(I)  if  I  is  even  or  ‘-RAV{I)  if  I  is  odd 

DXl  =  Difference  between  current  and  previous  "unprocessed”  range 
points  (i.e. ,XI-XM1) 

DX2  =  Difference  between  current  and  next  "unprocessed"  range  points 
(i.e.,  XPl-XI) 

GRAD  =  Gradient  of  current  refractivity  layer  in  profile 
HI  =  (I)th  height  value  in  first  refractivity  profile 
H2  =  (I+l)th  height  value  in  first  refractivity  profile 
HDEG  =  1/2  degree  in  radians 

HTERMAX  =  Maximum  height  in  meters  along  terrain  profile. 

ISCR  =  Unit  number  for  scratch  file  -  used  for  temporary  storage  of 
terrain  profile  points  for  processing. 

LFLAG  =  Logical  flag  indicating  if  end-of-file  has  been  reached  in  the 
scratch  file  for  reading  back  processed  terrain  points. 

LOPEN  =  Logical  flag  returned  in  INQUIRE  statement  that  checks  if  a 
file  is  already  attached  to  unit  ISCR. 

N04  =  N/4 

PRANG  =  User-specified  propagation  angle  in  radians. 

RADC  =  PI/180  ->  used  for  converting  angles  given  in  degrees  to 
radians . 

RHOR  =  Radar  horizon  range  based  on  transmitter  height  ANTREF  and 
0  receiver  height. 

RKM  =  Maximum  range  in  km. 

RLLIM  =  Various  maximum  range  step  limits  based  on  geometry  and 

whether  terrain  or  smooth  surface  case  is  being  performed 
RMl  =  (I)th  M-unit  value  in  first  refractivity  profile 
RM2  =  (I+l)th  M-unit  value  in  first  refractivity  profile 
RMATHT  =  M-unit  value  at  transmitter  height  ANTREF 
RMINA  =  Minimum  M-unit  value  above  transmitter  height 
RMINB  =  Minimum  M-unit  value  for  all  heights  below  transmitter  height 
SCD  =  Difference  in  previous  and  next  "unprocessed"  slope  segments 
(i.e.,  SCD  =  second  derivative,  d^2y/dx^2  ) 

SDEGIO  =  Sine  of  10  degrees. 

SDEG15  =  Sine  of  15  degrees. 

SLl  =  Slope  of  previous  "unprocessed"  terrain  segment 

SL2  =  Slope  of  next  "unprocessed"  terrain  segment 

SLOPE  =  Slope  of  current  terrain  segment  (after  processing) 

STHETAMAX  =  Sine  of  THETAMAX 

THETAFRAC  =  Fractional  number  relating  THETALAUNCH  to  THETAMAX 
UI  =  (I)th  value  of  complex  PE  field 
UNMI  =  (N-I)th  value  of  complex  PE  field 
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c  XI  =  Range  of  Ith  terrain  point  in  meters  (after  processing) 

c  X2  =  Range  of  {I+l)th  terrain  point  in  meters  (after  processing) 

c  XI  =  Range  of  "unprocessed”  (I)th  terrain  point  in  meters 

c  XDIF  =  Range  difference  between  current  and  next  terrain  points  after 

c  processing  (i.e.,  X2-X1) 

c  XMl  =  Range  of  "unprocessed”  (I-l)th  terrain  point  in  meters 

c  XPl  =  Range  of  "unprocessed"  (I+l)th  terrain  point  in  meters 

c  Y1  =  Height  of  Ith  terrain  point  in  meters  (after  processing) 

c  y2  =  Height  of  (I+l)th  terrain  point  in  meters  (after  processing) 

c  YDIF  =  Height  difference  between  current  and  next  terrain  points  after 

c  processing  (i.e. ,  Y2-Y1) 

c  YI  =  Height  of  "unprocessed"  (I)th  terrain  point  in  meters 

c  YMl  =  Height  of  "unprocessed"  (I-Dth  terrain  point  in  meters 

c  YPl  =  Height  of  "unprocessed"  (I+l)th  terrain  point  in  meters 

subroutine  peinit {  ef,  vnp,  rf,  sv,  tr,  HMINTER,  ROUT,  lERROR  ) 

include  ' tpem. inc  * 

common  /  arrays  /  u{0:maxpts),  filt (0 :maxn4) ,  frsp (0:maxpts) , 

+  envpr (0  rmaxpts) ,  ulst (Oimaxpts) 

common  /  pevar  /  wl,  fko,  delz,  n,  In,  zmax,  n34,  con,  dz2,  nml 
common  /  rhstps  /  dr,  drout,  dzout,  dr2,  zout (mxzout) 
common  /  miscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

+  antref,  rpe,  hlim(mxrout) ,  slp(mxter),  fter, 

+  hmref,  htlim 

common  /  pattern  /  pelev,  afac,  bw,  elv,  umax,  sbw 
common  /  parinit  /  rv2,  refdum(mxlvls )  ,  htdum(mxlvls)  , 

+  prof int (0 rmaxpts) ,  ht (0 rmaxpts) ,  is,  Ivlep 

common  /  htvar  /  ylast,  ycur,  ycurm 

common  /  trvar  /  dmdh (mxlvls) ,  zlim,  jls,  thetalaunch,  rlim 
common  /  impedance  /  alphav,  rav (0 rmaxpts ) ,  rng,  rng2,  cl,  c2, 

+  rk,  elm,  c2m,  ig,  root 

record  /  errorflag  /  ef 
record  /  inputvar  /  vnp 
record  /  refractivity  /  rf 
record  /  systemvar  /  sv 
record  /  terrain  /  tr 

complex  u,  frsp,  envpr,  ulst,  qi,  alphav,  rav,  rng,  rng2,  clc 
complex  c2c,  c2m,  rk,  elm,  cl,  c2,  root,  ui,  unmi,  cx 

logical  fter,  lopen,  Iflag 

data  radc  /  1.74533e-'2  /  ! degree  to  radian  conversion  factor 

data  iscr  /  20  /  !  Unit  number  for  scratch  file 

data  cO  /  299.79245  /  ! speed  of  light  x  le.“6  m/s 

data  sdeglO  /  .173648177  /  !  Sine  of  10  degrees 

data  sdeglS  /  . 258819045  /  !  Sine  of  15  degrees 

data  hdeg  /  8.726646e-3  /  !  1/2  degree 

ierror  =  0 
fter  =  .false, 
thetamax  =  0. 
hminter  =  0 . 
angu  =  0 . 
antref  =  sv.antht 

c  Put  lower  limit  on  HMAX  and  RMAX 

vnp.rmax  ~  amaxl {  vnp.rmax,  5000.  )  !Set  max.  range  to  no  less  than  5  km. 
vnp.hmax  =  amaxl (  vnp.hmax,  100.  )  !Set  max.  height  to  no  less  than  100  m. 
if (  vnp.hmin  .ge.  vnp.hmax  )  then 
ierror  =  -42 
return 
end  if 
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vnp.hmin  =  aminl  (  vnp.hitiin^  vnp.hmax-100 .  ) 

dzout  =  (vnp.hmax~vnp.hmin)  /  float (  vnp.nzout  ) 
drout  =  vnp.rmax  /  f loat (  vnp.nrout  ) 

c  Setup  output  height  array 

do  i  =  1,  vnp.nzout 

zout{i)  =  vnp.hmin  +  float (i)  *  dzout 
end  do 

WL  =  cO  /  sv.freq 
FKo  =2.  *  pi  /  WL 
con  =  l.e-6  fko 
qi  =  cmplx(  0.,  1.  ) 

c  Calculate  constants  used  to  determine  antenna  pattern  factor 
c  SV.IPAT  =  0  ~>  Omni 
c  SV.IPAT  =  1  ~>  gaussian 
c  SV.IPAT  =  2  ~>  sine  X 
c  SV.IPAT  =  3  ->  csc**2  x 
c  SV.IPAT  =  4  ->  generic  height-finder 

sv.bwidth  =  amaxl  (  sv.bwidth,  .5  )  !Don*t  let  vertical  beamwidth  go 
sv.bwidth  =  aminl  (  sv.bwidth,  45.  )  ! outside  .5  to  45  degree  limit. 

sv.elev  =  amaxl {  sv.elev,  -10.  )  ! Don't  let  elevation  angle  go 
sv.elev  =  aminl {  sv.elev,  10,  )  !outside  -10  to  10  degree  limit. 

bw  =  sv.bwidth  *  radc 
elv  =  sv.elev  *  radc 
bw2  =  .5  *  bw 
if (  sv.ipat  .eq.  1  )  then 

afac  =  .34657359  /  (sin(  bw2  ))**2 
pelev  =  sin(  elv  ) 
elseif (  sv.ipat  .eq.  3  )  then 
sbw  =  sin(  bw  ) 
elseif (  sv.ipat  .ne.  0  )  then 
afac  =  1.39157  /  sin (  bw2  ) 
a  =  pi  /  afac 

Umax  =  atan(  a  /  sqrt(l.  -  a**2)  ) 

end  if 

c  Discard  any  unnecessary  terrain  points.  Test  on  the  rate  of  change  of  slope, 
c  i.e.,  second  derivative.  If  that  is  below  l.e-3  then  discard  that  point. 

if {  tr.itp  .gt.  0  )  fter  =  .true, 
if {  fter  )  then 

c  Check  that  all  terrain  range  points  are  increasing. 

do  i  =  1,  tr.itp-1 
ipl  ==  i  +  1 

if  (  tr.terx{ipl)  .It.  tr.terx{i)  )  then 
ierror  =  -17 
return 
end  if 
end  do 

c  Test  to  see  that  first  range  value  is  0. 

if (  tr.terx(l)  .gt.  0.  )  then 
ierror  -  -18 
return 
end  if 

c  Test  to  see  if  the  last  range  point  in  the  profile  meets  or  exceeds  RMAX.  If 
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c  not  then  return  error  code. 


if (  tr . terx (tr . itp)  .It.  vnp.rmax  )  then 
if (  ef.lerr6  )  then 
ierror  =  -6 
return 
else 

tr.itp  =  min(tr.itp  +  1,  mxter) 
tr. terx (tr. itp)  =  vnp. rmax*l. 01 
tr . tery (tr . itp)  =  tr . tery (tr . itp  -  1) 
end  if 
end  if 

c  Test  to  see  if  the  unit  number  for  the  scratch  file  is  already  attached  to 
c  another  file.  If  so,  search  for  a  unit  number  that  is  unattached. 

inquire (  iscr,  OPENED  =  lopen  ) 
do  while  (lopen) 
iscr  =  iscr  +  1 

inquire (  iscr,  OPENED  =  lopen  ) 
end  do 

open(  iscr,  status  =  ’SCRATCH’) 
write (iscr, * )  tr.terx(l),  tr.tery{l) 
do  i  =  2,  tr.itp-1 
iml  =  i  -  1 
ipl  =  i  +  1 
xml  =  tr. terx (iml) 
yml  =  tr. tery (iml) 
xi  =  tr.terx(i) 
yi  =  tr.tery(i) 
xpl  =  tr. terx (ipl) 
ypl  =  tr. tery (ipl) 

dxl  =  amaxl (  l.e-3,  xi  -  xml  ) 
dx2  =  amaxl (  l.e-3,  xpl  -  xi  ) 

sll  =  (yi  -  yml)  /  dxl 
sl2  =  (ypl  ^  yi)  /  dx2 

scd  =  sl2  ~  sll  !  dx  is  taken  to  be  1  m 

c  If  second  derivative  is  large  enough  then  keep  this  point. 

if (  abs (scd)  .GT.  l.e-3  )  write (iscr, * )  xi,  yi 

end  do 

write (iscr, *)  tr. terx (tr. itp) ,  tr. tery (tr. itp)  !Keep  last  point 

rewind (  iscr  )  !in  profile. 

c  Now  the  scratch  file  contains  all  the  necessary  points  for  the  terrain 
c  profile.  Go  back  and  read  them  in  the  arrays  TR.TERX{),  TR.TERY(). 

bugfix  =  0. 

Iflag  =  eof(iscr) 
tr.itp  =  0 

do  while (  .not.  Iflag  ) 
tr.itp  =  tr.itp  +  1 

read(iscr,*)  tr. terx (tr. itp) ,  tr. tery (tr . itp) 
if (  tr. terx (tr. itp)  .ge.  vnp.rmax  )  exit 
bugfix  =  0. 

Iflag  =  eof(iscr) 
end  do 

close (iscr) 


!  Keep  first  point  of 
!  terrain  profile. 
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c  Determine  minimum  height  of  terrain  profile.  Then  adjust  entire  terrain 
c  profile  by  this  minimum  height  HMINTER  such  that  this  is  the  new  0  reference. 

hminter  =  vnp.hmax 
do  i  =  1,  tr.itp 
yi  =  tr.tery(i) 

if (  yi  .It.  hminter  )  hminter  =  yi 
end  do 

c  Get  maximum  height  of  terrain,  then  adjust  terrain  elevations  by  height 
c  offset. 


htermax  =  0 . 
do  i  =  1,  tr.itp 

if (  tr.tery(i)  .gt.  htermax  )  htermax  =  tr.tery{i) 
tr.tery(i)  =  tr.tery(i)  -  hminter 
end  do 

c  Return  error  code  if  VNP.HMAX  does  not  exceed  the  maximum  height  of  the 
c  terrain  profile. 

if  (  htermax  .gt.  vnp.hmax  )  then 
ierror  =  -8 
return 
end  if 

antref  =  sv.antht  +  tr.tery(l) 

do  i  =  1,  tr.itp“l 

ipl  =  i  +  1 
yl  =  tr.tery(i) 
xl  =  tr.terx{i) 
y2  =  tr.tery(ipl) 
x2  =  tr.terx(ipl) 

xdif  =  x2  -  xl 

ydif  =  y2  ”  yl 

xdif  =  amaxl (  xdif,  l.e-S  ) 

slope  =  ydif  /  xdif 

slp(i)  =  slope 

c  Calculate  angle  made  from  each  terrain  point  height  to  antenna  height  above 
c  reference  (HMINTER) .  Determine  maximum  propagation  angle  so  that  direct  ray 
c  angle  will  clear  highest  peak. 

if (  yl  . gt .  antref  )  then 

angle  =  atan(  (yl-antref)  /  xl  ) 
if (  angle  .gt.  angu  )  angu  =  angle 
end  if 

end  do 

c  Add  1/2  degree  to  the  angle  that  clears  the  highest  peak, 
angu  =  angu  +  hdeg 
end  if 

hmref  =  vnp.hmin  -  hminter 
htlim  =  vnp.hmax-hminter 
zlim  =  amaxl {  htlim,  antref  ) 

c  Initialize  refractivity  arrays. 

call  ref init (  ef.lerrl2,  vnp.rmax,  rf,  IERROR  ) 
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if (  ierror  .ne.  0  )  return 

c  Calculate  gradients  and  other  variables  for  use  in  ray  tracing. 

do  i  ~  1,  lvlep-1 
rml  =  refdum(i) 
rm2  =  refdum(i+l) 
hi  =  htdum(i) 
h2  ~  htdum(itl) 

grad  =  (  rm2  -  rml  )  /  (  h2  -  hi  ) 

if (  abs (  grad  )  .It.  l.e-S  )  grad  =  sign(  1.,  grad  )*l-e-3 
dmdh(i)  =  grad  *1.6-6  !  for  ray  trace  formulas 

end  do 


jls  =  0 

rmatht  =  0. 

do  i  =  1,  lvlep-1 

if  (  (antref  .It.  htdum(i+l)  )  .and.  (antref  .ge.  htdum(i)  ) )  then 
jls  =  i 

rmatht  =  refdum(i)  +  (antref  -  htdum(i)  )  *  dmdh(i)*l.e6 
exit 
end  if 
end  do 

rlim  =  .9  *  vnp.rmax 
prang  =  vnp. propang  *  radc 

c  Calculate  the  critical  angle  and  perform  ray  trace  to  get  the  maximum 
c  propagation  angle  such  that  you  get  coverage  at  all  heights  and  ranges 
c  >=  90%  of  maximum  range.  This  is  done  for  automatic  angle  calculation. 

c  Get  minimum  M-unit  value  of  profile  for  all  heights  above  transmitter  height. 

j  =  jls  +  1 
rmina  =  refdum{j) 
do  i  =  j ,  Ivlep 

if  (  refdum(i)  .It.  irmina  )  rmina  =  refdum(i) 
end  do 

c  Get  ininimiam  M-unit  value  of  profile  for  all  heights  below  transmitter  heights. 

rminb  =  refdum(jls) 
doi=jls,  1,  -1 

if  (  refdiam(i)  .It.  rminb  )  rminb  =  refdum{i) 
end  do 

c  Get  critical  angle  if  the  transmitter  is  within  or  above  a  duct. 

acrit  =  0. 
acritl  =  0. 
acrit2  =  0. 

delml  ==  rmatht  -  rmina 

delm2  =  rmatht  -  rminb 

if  {  delml  .gt.  0.  )  acritl  =  sqrt  (  2.e-6  *  delml  ) 

if {  delm2  .gt.  0.  )  acrit2  =  sqrt (  2.e-6  *  delm2  ) 

acrit  =  amaxl  (  acritl,  acrit2  )  +  l.e-4 

thetamax  =  acrit 

at  =  atan(  { zlim- antref )  /  vnp.rmax  ) 
thetamax  =  amaxl (  angu,  at,  acrit  ) 

c  If  user  inputs  non-zero  propagation  angle,  use  that  value. 

if (  prang  .ge.  l.e-6  )  thetamax  =  prang 

c  Get  THETAMAX  based  on  shallowest  reflected  ray  traced  to  reach  maximum  height 
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c  and  still  be  within  90%  of  maximum  range  (for  smooth  surface)  ,  For  terrain  case 
c  the  direct  ray  angle  is  used. 

call  tracea {  tr,  prang,  acrit  ) 

c  Add  buffer  for  filter  region. 

thetamax  =  thetamax  /  .75 


c  Put  lower  limit  on  THETAMAX  depending  on  frequency  {  in  MHz  ) : 
c  for  5000  <=  SV.FREQ  9000,  THETAMAX  >=  .5  deg 
c  for  4100  <=  SV.FREQ  <  5000,  THETAMAX  >=  .6  deg 
c  for  2900  <=  SV.FREQ  <  4100,  THETAMAX  >=  .7  deg 
c  for  2500  <=  SV.FREQ  <  2900,  THETAMAX  >=  .8  deg 
c  for  1500  <=  SV.FREQ  <  2500,  THETAMAX  >=  .9  deg 
c  for  600  <  SV.FREQ  <  1500,  THETAMAX  >-  1  deg 
c  for  400  <  SV.FREQ  <=  600,  THETAMAX  >=  2  deg 
c  for  200  <  SV.FREQ  400,  THETAMAX  >=  3  deg 
c  for  SV.FREQ  <=  200,  THETAMAX  >=  4  deg 


if (  sv.freq  .le. 
if (  sv.freq  . It . 
if (  sv.freq  .It. 
if (  sv.freq  .It. 
if {  sv. f req  . It. 
if {  sv.freq  .It. 
if {  sv.freq  .le. 
if (  sv.freq  .le. 
if (  sv. f req  . le . 


9000.  )  thetamax  =  amaxl (thetamax, 

5000.  )  thetamax  =  amaxl (thetamax, 

4100.  )  thetamax  =  amaxl (thetamax, 

2900.  )  thetamax  =  amaxl (thetamax, 

2500.  )  thetamax  =  amaxl (thetamax, 

1500.  )  thetamax  =  amaxl (thetamax, 

600.  )  thetamax  -  amaxl (thetamax, 

400.  )  thetamax  =  amaxl (thetamax, 

200.  )  thetamax  =  amaxl (thetamax. 


8.72665e-3) 

1.047197e-2) 

1.22173e-2) 

1.396263e-2) 

1.570796e-2) 

1.745329e-“2) 

3.4906585e“2) 

5.2359877e-2) 

6.981317e”2) 


if ( (  sv. polar  .eq.  'V*  )  .and.  (  prang  .le.  l.e-6  )) 
+  thetamax  =  2 .  *  thetamax 


c  Get  FFT  size  based  on  THETAMAX 


call  getf f tsz (  ZLIM  ) 

c  Maximize  THETAMAX  within  determined  FFT  size  for  terrain  cases  and  if 
c  using  automatic  angle  calculation. 

if { (  fter  )  .and.  (prang  .le.  l.e-6))  then 

c  Use  74%  of  ZMAX  instead  of  75%  to  leave  some  slop  and  ensure  the  FFT  size  is 
c  not  surpassed. 

if (  .74*zmax  .gt.  zlim  )  then 

thetafrac  =  thetalaunch  /  thetamax 
zmax  =  zlim  /  .74 

sthetamax  =  float (n)  *  wl  *  .5  /  zmax 

c  Put  upper  limits  on  THETAMAX  depending  on  frequency. 

if (  sv.freq  .gt.  1000.  )  then 

sthetamax  =  aminl (  sthetamax,  sdeglO  ) 

else 

sthetamax  =  aminl (  sthetamax,  sdegl5  ) 
end  if 

delz=  wl  *  .5  /  sthetamax 
thetamax  =  asin(  sthetamax  ) 
zmax  =  float (n)  *  delz 
thetalaunch  =  thetafrac  *  thetamax 
end  if 
end  if 

c  Determine  horizon  range  based  on  transmitter  height  and  0  receiver  height 
c  by  RHOR  =  3572.  *  sqrt (  1.3333  *  antref  ) 
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rhor  =  4124.5387  *  sqrt(  sv.antht  ) 
dr  =  2.  *  fko  *  del2**2 
rkm  =  vnp.rmax  *  l.e-3 

c  Determine  range  step. 

if (  f ter  )  then 

dr  =  aminl (  dr,  700.  ) 
if {  rkm  .ge.  5.  )  rllim  =  75. 
if (  rkm  .ge.  10.  )  rllim  =  90. 

if (  rkm  .ge.  15.  )  rllim  =  100. 

if (  rkm  .ge.  20.  )  rllim  =  110. 

if {  rkm  .ge.  30.  )  rllim  =  175. 

if (  rkm  .ge.  50.  )  rllim  =  200. 

if (  rkm  .ge.  75.  )  rllim  =  250. 

if (  rkm  .ge.  100.  )  rllim  =  300. 
dr  =  amaxl (  dr,  rllim  ) 
else 

dr  =  aminl (  dr,  1000.  ) 
dr  =  amaxl (  dr,  30.  ) 

if (  vnp.rmax  .ge.  rhor  )  dr  =  amaxl (  300.,  dr  ) 
end  if 

dr2  =  .5  *  dr 
c  Path  loss  constant. 

plcnst=20 . *alogl0 (2 . *f ko) 

c  Initialize  variables  for  free-space  propagator  phase  calculations. 

delp  =  pi/zraax 
FNorm  =  2.  /  N 
cnst  =  delp  /  fko 
nml  =  n  -  1 
dz2  =2.  *  delz 

c  Initialize  variables  and  set-up  filter  array. 

no4  -  n/4 
n34  =  3.*  no4 
cn75  =  4 .  *  pi  /  N 
do  i  =  0,  no4 

fj=  cn75  *  float (i) 
filt(i)  =  ,5  +  .5  *  cos(fj) 
end  do 

c  Initialize  dielectric  ground  constants  for  vertical  polarization, 
ig  =  1 

if (  tr.igr  .eq.  0  )  then 
tr.igr  =  1 
tr.rgrnd(l)  =  0. 
tr.igrnd(l)  =  0 
end  if 

if  (  sv. polar  .eq.  'V  )  call  dieinit(  sv,  tr  ) 
c  Initialize  starter  field. 

call  xyinit {  sv,  tr  ) 
c  Transform  to  z-space. 
call  f f t (  u  ) 

c  Initialize  Cl  and  C2  for  start  of  PE  calculations  -  only  for  vertical 
c  polarization.  NOTE:  THIS  IS  ONLY  FOR  SMOOTH  SURFACE. 
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if  {  sv. polar  .eq.  ’V  )  then 
clc  =  cmplx (  0.,  0.  ) 
c2c  =  cmplx (  0.,  0.  ) 
do  i  =  0,  n 
nmi  =  n  -  i 
ui  =  u{i) 
unmi  =  u(niai) 

if((  i  .eq.  0  )  .or.  (i  .eq.  n  ))  then 
ui  =  .5  *  ui 
unmi  =  .  5  *  unmi 
end  if 

iv  -  mod(  i,  2  ) 
cx  =  rav(i) 

if  (  iv  .eq.  1  )  cx  =  “*rav{i) 
clc  =  ui  *  rav(i) 
c2c  =  unmi  *  cx 

cl  =  cl  +  clc 
c2  =  c2  +  c2c 
end  do 

cl  =  cl  *  rk 
c2  =  c2  *  rk 

end  if 

ylast  =  0. 

if {  fter  )  ylast  =  tr,tery{l) 

ycurm  =  0 . 
rout  =  0. 
ycur  =  0. 

c  Define  mesh  array  in  height 
do  i=0,n 

ht(i)=  float (i) *delz 
end  do 

c  If  smooth  surface,  trace  THETALAUNCH  ray  and  store  all  heights  at  each 
c  output  range  step  in  array  HLIM(). 

call  traceh(  vnp.nrout  ) 

c  Determine  the  free-space  propagator  (p-space)  arrays, 
call  phasel 

c  If  smooth  surface  and  range-independent  case  then  initialize  all  refractivity 
c  and  z-space  propagator  arrays  now. 

if (  rf.nprof  .eq.  1  )  call  prof ref (  hminter,  0  ) 
if ( (  .not.  fter  )  .and.  (rf.nprof  .eq.  1  ))  then 
call  intprof 
call  phase2 
end  if 

end 
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8.1.1  Subroutine  ANTPAT 


c  **************************  SUBROUTINE  ANTPAT  ****************************** 
c  Module  Name:  ANTPAT 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Determines  the  antenna  pattern  factor  for  angle  passed  to  routine, 
c  Version  Number:  1.5 
c  INPUTS: 

c  Argiament  List:  IPTRN,  SANG 

c  Common:  AFAC,  BW,  ELV,  PELEV,  SBW,  UMAX 

c  OUTPUTS: 

c  Argument  List:  PATFAC 

c  Files  Included:  NONE 
c  Calling  Routines:  XYINIT 
c  Routines  called:  NONE 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary, 
c  Input  Variables: 

c  IPTRN  =  Type  of  antenna  pattern. 

c  SANG  =  Sine  of  angle  for  which  antenna  pattern  is  sought, 

c  Output  Variables: 

c  PATFAC  =  Antenna  pattern  factor, 

c  Local  Variables: 

c  ARG  =  Angle  argument  used  for  SINX/X  and  generic  height-finder  antenna 

c  pattern 

c  DIRANG  =  Sine  of  direct  ray  angle  =  abs (SANG) 

c  PR  =  Sine  of  angle  U  relative  to  sine  of  elevation  angle  (i.e., 

c  sine (u)  -  sine (elv) 

c  U  =  Angle  for  which  antenna  pattern  is  sought. 

c  UDIF  =  Angle  U  relative  to  the  antenna  elevation  angle  (i.e.,  U-ELV) 

subroutine  antpat {  iptrn,  sang,  PATFAC  ) 

common  /  pattern  /  pelev,  afac,  bw,  elv,  umax,  sbw 

c  In  the  following  pattern  definitions,  "u"  refers  to  the  angle  for  which 
c  the  antenna  pattern  is  sought,  and  "uO"  refers  to  the  elevation  angle. 

c  IPTRN  =  0  gives  Omnidirectional  antenna  pattern  factor  :  f (u)  =  1 

patfac  =  1. 

if (  iptrn  . gt .  1  )  then 
u  =  asin(  sang  ) 
udif  =  u  -  elv 
end  if 

c  IPTRN  =  1  gives  Gaussian  antenna  pattern  based  on 
c  f(p-pO)  =  exp{-w**2  *  (  p-pO  )**2  )  /  4,  where  p  =  sin{u)  and 
c  pO  =  sin(uO) 

if {  iptrn  . eg.  1  )  then 
pr  =  sang  -  pelev 
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patfac  =  exp(-pr  *  pr  *  afac) 
c  IPTRN  =  2  gives  sin(x)/x  pattern  based  on 

c  f(U“uO)  =  sin(x)  /  X  where  x  =  afac  *  sin(u-uO)  for  |u~uO|  <=  umax 
c  f(u-uO)  =  .03  for  lu-uOj  >  umax 

c  IPTRN  =  4  gives  height-finder  pattern  which  is  a  special  case  of  sin(x)/x 

elseif ( (  iptrn  .eq.  2  )  .or.  {  iptrn  .eq.  4  ))  then 
if (  iptrn  .eq.  4  )  then 
dirang  =  abs (  sang  ) 

if {  dirang  .gt.  elv  )  udif  =  u  -  dirang 
end  if 

if (  abs (udif)  .le.  l.e-6  )  then 
patfac  =  1. 

elseif (  abs (  udif  )  .gt.  umax  )  then 
patfac  =  , 03 
else 

arg  =  afac  *  sin(  udif  ) 

patfac  =  aminl {  1.,  amaxl (  .03,  sin(  arg  )  /  arg  )  ) 
end  if 

c  IPTRN  =  3  gives  csc-sq  pattern  based  on 
c  f (u)  =1  for  u-uO  <=  bw 

c  f (u)  =  sin(bw)  /  sin(u-uO)  for  u-uO  >  bw 
c  f (u)  =  maximum  of  .03  or  [1+ (u-uO) /bw]  for  u-uO  <  0 

elseif (  iptrn  .eq.  3  )  then 
if {  udif  . gt .  bw  )  then 

patfac  =  sbw  /  sin(  udif  ) 
elseif  (  udif  .It.  0  )  then 

patfac  =  aminl (  1.,  amaxl (  .03,  (1.  +  udif/bw)  )  ) 

end  if 
end  if 

end 
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8.1.2  Subroutine  REFE'JIT 


C  *************************  SUBROUTINE  REFINIT  ***************************** 
c  Module  Name:  REFINIT 

c  Module  Security  Classif ication:  UNCLASSIFIED 

c  Purpose:  Initializes  refractivity  arrays  used  for  subsequent  PE 
c  calculations. 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  ELERR12,  RF  structure,  VRMAX, 
c  Common:  NONE 


c  OUTPUTS: 

c  Argument  List:  TERROR 

c  Common:  HTDUM(),  IS,  LVLEP,  REFDUM(),  RV2 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PEINIT 
c  Routines  called:  REMDUP 


c  GLOSSARY:  For  common  variables  refer  to  main  glossary 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Input  Variables: 

ELERR12  =  Element  of  user-’provided  error  flag  structure  EF  that  will 
trap  on  certain  errors  if  set  to  .TRUE.  Refer  to  user's 
manual . 

RF  =  Refractivity  structure  for  external  environmental  data  elements. 

RF. LVLEP  =  Number  of  levels  in  refractivity  profile  (for  range 
dependent  case  all  profiles  must  have  same  number  of 
levels) . 

RF.REFMSL(,)  =  2-dimensional  array  containing  refractivity  with 
respect  to  mean  sea  level  of  each  profile.  Array 
format  must  be  REFMSL(I,J)  =  M-unit  value  at  Ith 
level  of  Jth  profile.  J  =  1  for  range- independent 
cases . 

RF.HMSL(,)  =  2-dimensional  array  containing  heights  in  meters  with 

respect  to  mean  sea  level  of  each  profile.  Array  format 
must  be  HMSL(I,J)  =  height  of  Ith  level  of  Jth  profile. 

J  =  1  for  range-independent  cases. 

RF.RNGPROFO  =  Ranges  of  each  profile  in  meters,  i.e.,  RNGPROF(I)  = 
range  of  Ith  profile.  RNGPROF(l)  should  always  be 
equal  to  0. 

RF.NPROF  =  Number  of  profiles.  Equals  1  for  range- independent  cases. 

VRMAX  =  Maximum  range  in  meters. 


c  Output  Variables: 

c  TERROR  =  -12  ->  Range  of  last  refractivity  profile  entered  (for  range 

c  dependent  case)  is  less  than  VRMAX.  (This  is  returned  from 

c  subroutine  REFINIT) .  Will  only  return  this  error  if  error  flag 

c  ELERR12  is  set  to  .TRUE.). 


c  Local  Variables: 

c  GRAD  =  Gradient  of  current  refractivity  level. 

c  HDIF  =  Height  difference  between  last  two  differing  height  levels  in 

c  each  refractivity  profile. 

c  HLARGE  =  This  is  the  maximum  height  at  which  the  refractivity  profile 

c  is  extrapolated. 

c  LVLMl  =  Last  user-specified  level  in  refractivity  profile 
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c  LVLM2  =  Second-to-last  user-specified  level  in  refractivity  profile, 
c  (i.e,  LVLMl-1) . 

c  NP  =  Final  number  of  refractivity  profiles 

c  RliARGE  =  This  is  the  maximum  range  at  which  the  refractivity  profile 
c  is  "extrapolated".  For  range-dependent  case,  the  last  entered 

c  profile  is  then  forced  to  be  homogeneous  to  a  range  of  RLARGE. 

subroutine  refinit{  elerrl2,  vrmax,  rf,  lERROR  ) 

include  *  tpem.  inc ' 

common  /  parinit  /  rv2,  refdum(mxlvls) ,  htdum(mxlvls) , 

+  profint (0:maxpts) ,  ht (0 :maxpts) ,  is,  Ivlep 

record  /  refractivity  /  rf 

logical  elerrl2 

data  hlarge/  l.e6  / 
data  rlarge  /  l.elO  / 

ierror  =  0 

c  Test  to  see  if  last  profile  entered  {  for  range  dependent  case  )  meets  or 
c  exceeds  VRMAX,  otherwise,  return  error  (unless  error  trapping  is  turned  off 
c  “  EF.LERR12  =  .FALSE.). 

if (  rf.nprof  .gt.  1  )  then 

if ( {  rf.rngprof (rf.nprof )  .It.  vrmax  )  .and.  (  elerrl2  ))  then 
ierror  =  -12 
return 
end  if 
end  if 

c  Add  extra  level  to  tabulated  profiles  with  extrapolated  gradient.  Test  on 
c  HDIF  greater  than  0  for  profiles  that  contain  multiple  height/M-unit  values 
c  that  are  equal. 

rf. Ivlep  =  rf. Ivlep  +  1 
do  i  =  1, rf.nprof 
hdif  =  0. 

Ivlml  =  rf. Ivlep 
lvlin2  =  rf.  Ivlep 
do  while (  hdif  .le.  l.e-6  ) 

Ivlml  =  Ivlml  -  1 
lvlm2  =  Ivlml  -  1 

hdif  =  rf.hmsl (Ivlml, i)  -  rf .hmsl (lvlm2, i) 
end  do 

grad  =  (rf. ref msl (Ivlml, i) -rf. ref msl (lvlm2, i) )  /  hdif 

c  If  last  gradient  in  refractivity  profile  is  negative  then  return  error. 

if (  grad  .It.  0  )  then 
ierror  =  -14 
return 
end  if 

rf -hmsl (rf. Ivlep,  i)  =  hlarge 

rf.refmsl(  rf. Ivlep,  i  )  =  (hlarge-rf .hmsl (Ivlml, i) )  *  grad  + 

+  rf . refmsl (  Ivlml,  i  ) 

end  do 

is  =  1 

rv2=rf . rngprof (is) 

do  i  =  1,  rf. Ivlep 

refdumd)  =  rf. refmsl  (  i,  is  ) 
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htdum(i)  =  rf.hmsl{  i,  is  ) 
end  do 

np  =  rf.nprof  +  1 
rf .rngprof (np)  =  rlarge 
do  i  =  1,  rf.lvlep 
npml  =  np  -  1 

rf.hmsl{  i,  np  )  =  rf.hmsl(  i,  npml  ) 
rf.refmsl{  i,  np  )  =  rf.refmsl{  i,  npml  ) 
end  do 

Ivlep  =  rf.lvlep 
call  remdup 
end 
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8.1.3  Subroutine  TRACEA 


c  ***************************  SUBROUTINE  TRACEA  **************************** 
c  Module  Name:  TRACEA 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  This  routine  performs  a  ray  trace  to  determine  the  minimum  angle 
c  required  (based  on  the  reflected  ray)  to  obtain  a  PE  solution  for 

c  all  heights  up  to  ZLIM  and  all  ranges  beyond  RLIM.  THETAMAX 

c  is  then  determined  from  this  angle.  This  is  done  only  for  smooth 

c  surface  and  automatic  angle  calculation.  For  terrian  cases, 

c  THETAMAX  has  already  been  set  to  the  larger  of  the  critical  angle 

c  (if  a  duct  exists) ,  the  angle  that  clears  the  highest  terrain 

c  peak,  and  the  tangent  angle  determined  from  HMAX  and  RMAX. 

c  If  PRANG  is  not  equal  to  0,  then  the  user  has  overriden  the 

c  default  calculation  and  THETAMAX  is  then  determined  based  on 

c  PRANG.  However  a  ray  trace  must  still  be  done  in  order  to 

c  determine  the  initial  launch  angle  such  that  the  local  angle  of 

c  the  ray  remains  less  than  PRANG.  The  initial  launch  angle  is 

c  used  in  subroutine  TRACEH. 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  ACRIT,  PRANG,  TR  structure 
c  Common:  ANTREF,  DMDH(),  FTER,  HTDUM(),  JLS,  LVLEP,  RLIM, 
c  SLP{),  THETAMAX,  ZLIM 

c  OUTPUTS: 

c  Argument  List:  NONE 
c  Common:  RPE,  THETALAUNCH,  THETAMAX 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 

c  Calling  Routines:  PEINIT 

c  Routines  called:  NONE 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary 
c  Input  Variables: 

c  ACRIT  =  Critical  angle,  i.e.,  angle  above  which  no  rays  are  trapped 
c  for  ducting  environment. 

c  PRANG  =  User^specif ied  propagation  angle  in  radians, 

c  TR  =  Terrain  structure  for  external  terrain  data  elements, 

c  TR.TERXO  =  range  points  of  terrain  profile  in  meters, 

c  TR.TERYO  =  height  points  of  terrain  profile  in  meters. 

c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables: 

c  AO  =  Angle  in  radians  of  ray  before  trace  step. 

c  A1  =  Angle  in  radians  of  ray  after  trace  step. 

c  AMXCUR  =  Maximum  of  local  angle  along  ray. 

c  AMXCURL  =  Last  (or  previous)  AMXCUR. 

c  AS  =  Starting  launch  angle  in  radians. 

c  ASL  =  Last  (or  previous)  starting  launch  angle. 

c  DEG15  =  15  degrees  (in  radians)  -  used  as  a  maximum  limit  for 

c  THETAMAX  and  THETALAUNCH. 

c  GRAD  =  Gradient  of  current  refractivity  layer. 

c  HO  =  Height  of  ray  in  meters  of  ray  before  trace  step. 
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c  HI  =  Height  of  ray  in  meters  of  ray  after  trace  step, 

c  IDN  =  Integer  with  value  of  +  or  -  1.  Used  to  increment  or  decrement 

c  initial  launch  angle. 

c  ISET  =  Flag  to  test  whether  or  not  to  stop  main  loop, 

c  JL  =  Index  of  current  refractivity  layer  ray  tracing  through, 

c  LOOP  =  Flag  to  test  whether  or  not  to  stop  nested  loop  of  ray  tracing 

c  individual  ray. 

c  RAD  =  Radicand  for  ray  trace  formula 

c  RO  =  Range  of  ray  in  meters  before  trace  step, 

c  R1  =  Range  of  ray  in  meters  after  trace  step, 

c  RREF  =  Range  at  which  traced  ray  is  reflected. 

subroutine  tracea(  tr,  prang,  acrit  ) 

include  ' tpem. inc ‘ 


common  /  miscvar 

+ 

+ 

common  /  trvar  / 
common  /  parinit 

+ 


/  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 
antref,  rpe,  hlim(inxrout) ,  slp(mxter),  fter, 
hmref,  htlim 

dmdh (mxlvls) ,  zlim,  jls,  thetalaunch,  rlim 
/  rv2,  refdum (mxlvls )  ,  htdum (mxlvls ) , 

prof int (0 cmaxpts) ,  ht (0:maxpts) ,  is,  Ivlep 


record  /  terrain  /  tr 


complex  qi 
logical  fter,  loop 

data  degl5  /  .2617994  /  ! 15  degrees  in  radians 

c  All  heights  and  ranges  are  in  meters,  gradients  are  in  M-unit/meter  *  l.e-6 
c  and  angles  are  in  radians. 

c  Define  in  line  ray  trace  functions: 

radal(  a,  b  )  =  a**2  +  2.  *  grad  *  b 
rp(a,  b)=a+b/  grad 
ap(a,  b)  =a+b*  grad 

hp(  a,  b,  c  )  =  a  +  {  b**2  -  c**2  )  /  2.  /  grad 

as  =  -thetamax 
idn  =  -1 
if (  fter  )  then 
as  =  thetamax 

if {  prang  .le.  l.e-6  )  idn  =  1 

c  For  initial  shallow  slope  and  non-zero  user-defined  maximum  propagation 
c  angle,  determine  the  range  at  which  ray  is  reflected  (RREF) .  If  this  is 
c  less  than  the  range  of  the  2nd  terrain  point,  then  treat  as  if  this  were  a 
c  smooth  surface  problem.  I.e.,  determine  THETAMAX  based  on  reflected  ray, 
c  not  direct  ray. 

if  (  (  prang  .gt.  l.e-6  )  .and.  (  slp(l)  .le.  l.e-6  ))  then 
rref  =  (antref  -  tr.tery(l))  /  tan(  thetamax  ) 
if (  rref  .It.  tr.terx(2)  )  then 
idn  =  -1 
as  =  -thetamax 
end  if 
end  if 
end  if 
asl  =  0 . 
amxcurl  =  0 . 
iset  =  0 

do  while (  iset  .eq.  0  ) 


!a=a0,  b=hl-h0 
!  a=r0,  b=al-a0 
! a=a0,  b=rl-r0 
!a=h0,  b=al,  c=a0 
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c  Decrease  or  increase  angle  by  1  mrad,  depending  on  value  of  IDN, 
c  Initialize  ray  trace  variables. 


as  =  as  +  idn*l.e“3 

hO  =  antref 

rO  =  0. 

rpe  =  0. 

aO  =  as 

jl  =  jls 

amxcur  =  0. 

loop  =  .true. 

c  Perform  ray  trace  until  ray  has  reached  ZLIM  and/or  RLIM  where 
c  ZLIM  =  maximum  of  HMAX-HMINTER  or  ANTREF. 
c  RLIM  ==  .9  *  RMAX 

do  while {  loop  ) 

grad  =  dmdh ( jl) 

if (  aO  .It.  0.  )  hi  =  htdum(jl) 

if (  aO  .gt.  0-  )  hi  -  htdum(jl  +  1) 

if {  aO  -eq.  0.  )  then 

if (  grad  .It.  0.  )  hi  =  htdum{jl) 

if (  grad  .gt.  0.  )  hi  =  htdum{jl+l) 

end  if 

if{  hi  .gt.  zlim  )  hi  -  zlim 
rad  =  radal (  aO,  hl-hO  ) 
if {  rad  .gt.  0  )  then 

al  =  sign(  1.,  aO  )  *  sqrt{  rad  ) 
else 

al  =  0. 

hi  =  hp(  hO,  al,  aO  ) 
end  if 


rl  =  rp(  rO,  al-aO  ) 

if ( {  al  .le.  0.  )  .and.  (  hi  .le.  htdum(jl)  ))  then 
hi  =  htdum(jl) 
rad  =  radal (  aO,  hl-hO  ) 
al  =  -sqrt(  rad  ) 
rl  =  rp {  rO,  al-aO  ) 
jl  -  jl  -  1 

if  {  jl  .eq.  0  )  jl  =  1 

el seif ( {  al  . ge.  0 .  ) . and. (  hi  . ge .  htdum{ jl+1)  ) ) then 
hi  =  htd\Jim{  jl+1) 
rad  =  radal (  aO,  hl“h0  ) 
al  =  sqrt(  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
jl  =  jl  +  1 

if(  jl  .gt.  Ivlep  )  jl  =  Ivlep 
end  if 

if (  hi  .gt.  zlim  )  then 
hi  =  zlim 

rad  =  radal (  aO,  hl-hO  ) 
al  =  sqrt (  rad  ) 
rl  =  rp (  rO,  al-aO  ) 
end  if 

hO  =  hi 
rO  =  rl 
aO  ==  al 

c  Set  RPE  to  range  at  which  reflected  ray  hits  the  ground. 

if (  hO  .le.  l.e-4  )  then 
aO  =  -aO 
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rpe  =  rO 
end  if 

c  If  AO  greater  than  90  degrees  then  exit  loop. 

if (  aO  .ge,  1.57079  )  exit 
amxcur  =  amaxl (  amxcur,  aO  ) 

if ( (  hO  .ge.  zlim  )  .and.  (  aO  .gt.  0.))  loop  =  .false, 
if (  rO  .gt.  rlim  )  loop  =  .false. 

end  do 

c  Test  to  see  if  the  current  ray  traced  from  launch  angle  AS  meets  criteria, 
c  If  ray  traced  does  not  reach  ZLIM  AND  is  not  within  RLIM  then  the  initial 
c  launch  angle  AS  is  increased  by  1  rtirad  and  ray  trace  is 
c  repeated.  This  is  done  only  for  smooth  surface. 

if ( (  rO  .le.  rlim  )  .and.  (  rpe  -gt.  0.  ))  iset  =  1 

c  If  criteria  is  met  then  (if  user  specified  a  problem  angle)  make  sure  the 
c  local  maximum  angle  is  just  within  PRANG.  If  not  then  repeat  ray  trace 
c  until  this  occurs. 

if (  fter  ) then 

if{  prang  .gt.  l.e-6  )  then 
iset  =  1 

if (  amxcur  .gt.  thetamax  )  iset  -  0 

if (  as  .le.  acrit+l.e-3  )  iset  =  1  ! Don't  let  launch  angle 

!be  less  than  critical 
! angle . 

else 

if ( (  rO  .le.  rlim  )  .and.  (  hO  .ge.  zlim  ))  iset  =  1 
if (  iset  .eq.  1  )  thetamax  =  amaxl (  abs(as),  amxcur  ) 
end  if 
else 

if { (  prang  . gt .  l.e-6  )  . and.  (iset  . eq.  1) )  then 

a  =  amaxl (  abs(as),  amxcur  ) 
if (  a  .It.  prang  )  then 
iset  =  0 

elseif (  asl  .ne.  0.  )  then 
as  =  asl 

amxcur  =  amxcurl 
end  if 
end  if 
end  if 

c  Just  as  a  safeguard  -  set  absolute  maximum  of  launch  angle  to  15  degrees. 

if {  as  .le.  -degl5  )  then 
iset  =  1 
as  =  -degl5 
amxcur  =  degl5 
end  if 

asl  =  as 

amxcurl  =  amxcur 
end  do 

if (  .not.  fter  )  thetamax  =  amaxl (  abs(as),  amxcur  ) 
thetalaunch  =  abs(as) 

end 
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8.1.4  Subroutine  DIEINIT 


c  *************************  SUBROUTINE  DIEINIT  *************************** 
c  Module  Name:  DIEINIT 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  This  routine  calculates  Conductivity  and  Permittivity 
c  as  a  function  of  frequency  in  MHz.  All  equations  and  coef- 

c  ficients  were  obtained  by  using  a  SUMMASKETCH  digitizer  with 

c  the  CCIR  volume  5  curves  on  page  74.  The  digitized  data  was 

c  then  used  with  the  TABLECURVE  software  to  obtain  the  best  fit 

c  equations  and  coefficients  used  in  this  sxjbroutine .  In  some 

c  cases  two  sets  of  equations  were  required  to  obtain  a  decent 

c  fit  across  the  100  MHz  -  lOOGHz  range.  These  curves  fit  the 

c  digitized  data  to  within  5%. 

c  Version  Number:  1.5 


c  INPUTS: 

c  Argument  List:  SV  structure,  TR  structure 
c  Common:  NONE 


c  OUTPUTS:  TR. DIELEC (,) 
c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PEINIT 
c  Routines  called:  NONE 


c  GLOSSARY: 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Input  Variables: 

SV  =  System  structure  for  external  system  data  elements. 

SV.FREQ  “  Frequency  in  MHz. 

TR  =  Terrain  structure  for  external  terrain  data  elements. 

TR.IGR  =  Number  of  different  ground  types  specified. 

TR.IGRNDO  =  Type  of  ground  composition  for  given  terrain  profile  - 
can  vary  with  range.  Different  ground  types  are: 

0  =  sea  water,  1  =  fresh  water,  2  =  wet  ground, 

3  =  medium  dry  ground,  4  =  very  dry  ground, 

5  =  user  defined  (in  which  case,  values  of  relative 
permittivity  and  conductivity  must  be  given)  . 

TR.RGRNDO  =  Ranges  at  which  the  ground  types  apply. 


c 

c 

c 

c 

c 

c 


Output  Variables: 

TR.DIELEC(,)  =  2-dimensional  array  containing  the  relative 

permittivity  and  conductivity;  DIELEC (l,i)  and 
DIELEC (2, i),  respectively.  Only  needs  to  be  specified 
if  using  IGRND(i)  =  5,  otherwise,  TPEM  will 
calculate  based  on  frequency  and  ground  types  0-4. 


c  Local  Variables: 

c  EPSILON  =  Relative  permittivity, 

c  SIGMA  =  Conductivity. 


subroutine  dieinit (  sv,  tr  ) 


include  ' tpem. inc ' 

record  /  terrain  /  tr 
record  /  systemvar  /  sv 

dimension  a (14) ,  b(14),  c(14),  d(14),  e(14),  f(14) 
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data  (a (i) , i=l, 14) 

+ 

+ 

+ 

+ 

data  (b  (i) , i=l, 14) 

+ 

+ 

+ 

+ 

data  (c (i) , i=l, 14) 

+ 

+ 

+ 

+ 

data  (d(i) , i=l, 14) 

+ 

+ 

+ 

data  (e (i) , i-1, 14 ) 

+ 

+ 

+ 

+ 

data  (f (i) , i=l, 14 ) 

+ 


/  1.4114535e-2,  3.8586749,  79.027635, 
-0.65750351,  201.97103,  857.94335, 

915.31026,  0.8756665,  5 .5990969e-3, 

215.87521,  .17381269,  2.4625032e-2, 
-4.9560275e-2,  2.2953743e-4  / 

/  -5.2122497e-8,  -2 . 1179295e-5 ,  -2 . 2083308e-5 , 

5 .5620223e-5,  -2 . 5539582e-3,  -8 . 9983662e-5, 
-9.4530022e-6,  4.7236085e-5,  8 . 7798277e-5 , 
-7.6649237e-5,  1.2655183e-4,  1.8254018e-4, 
2.9876572e-5,  -8 . 1212741e-7  / 

/  5.8547829e-ll,  9 . 1253873e-4 ,  -3 .5486605e-4, 
6.6113198e-4,  1.2197967e-2,  5 .5275278e-2, 
-4.0348211e-3,  2 . 6051966e-8,  6.2451017e-8, 
-2.6151055e-3,  -1 . 6790756e-9,  -2 . 664754e-8, 
-3.05618486-10,  1.8045461e-9  / 

/  -7.67174236-16,  6.5727504e-10,  2 . 7067836e-9, 
3.01408166-10,  3.78531696-5,  8 . 8247139e-8, 
4.8922816-8,  -9.235936e-13,  -7 . 1317207e-12, 
1.25659996-8,  1.10376086-14,  7.65087326-12, 
1.11318286-15,  -1.9606776-12  / 

/  2.98563186-21,  1 . 5309921e-8 ,  8.210184e-9, 
1.48769526-9,  -1 . 728776e-6,  0.0, 

7.43428976-7,  1 . 4560078e-17,  4 .2515914e-16, 
1.94844826-7,  -2 . 9223433e-20,  -7 . 4193268e-16, 
0.0,  1.25695946-15  / 

/  0.,  -1.96476646-15,  -1 . 0007669e-14 ,  0.,  0., 
0.,  0.,  -1.11293486-22,  -1.240806e-20,  0., 

0.,  0.,  0.,  -4.468116-19  / 


fl  =  sv.freq 
f2  =  fl  *  fl 
f3  =  fl  *  f2 
f4  =  fl  *  f3 
f5  =  fl  *  f4 
f6  =  fl  *  f5 
f7  =  fl  *  f6 
f8  =  fl  *  f7 
f9  =  fl  *  f8 

do  i  =  1,  tr.igr 

S6lect  cas6  {  tr.igrnd{i)  ) 


c  P6rmittivity  and  conductivity  for  salt  water. 


case  (  0  ) 

epsilon  -  70. 
sigma  =  5. 
m  =  1 

ml  =  m  +  1 

if (  fl  .gt,  2253.5895  )  epsilon  =  1.  /  (  a (m)  + 

+  b (m) *f 1  +  c(m)*f2  +  d{m)*f3  +  e(m)*f4  ) 

if(  fl  .gt.  1106.207  )  then 

sigma  =  a  (ml)  +  c(ml)*fl  +  e(ml)*f2 

sigma  =  sigma  /  (  1.+  b(ml)*fl  +  d(ml)*f2  +  f(ml)*f3  ) 
end  if 


c  Permittivity  and  conductivity  for  fresh  water. 

case(  1  ) 

epsilon  =  80.0 
m  =  3 

ml  =  m  +  1 

IF(  fl  .gt.  6165.776  )  THEN 

epsilon  =  a (m)  +  c{m)*fl  +  e(m)*f2 

epsilon  =  epsilon/ (1.  +  b(m)*fl  +  d(m)*f2  +  f (m) *f3  ) 
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end  if 

IF(  fl  .gt.  5776.157)  THEN 
k  =  2 
else 

ml  =  ml  +  1 
k  ^  -1 
end  if 

sigma  =  a  (ml)  +  c(ml)*fl  +  e(ml)*f2 

sigma  =  {sigma  /  (1.  +  b(ml)*fl  +  d (ml)  *f2) )  **k 

c  Permittivity  and  conductivity  for  wet  ground. 

case (  2  ) 

epsilon  =  30.0 
m  =  6 

IF(  fl  .ge.  4228.11  )  m  =  7 
if(  fl  .gt.  1312.054  )  then 

epsilon  =  a (m)  +  c(m)*fl  +  e (m)  *f2 

epsilon  =  SQRT (  epsilon  /  (1.  +  b(m)*fl  +  d(m)*f2)  ) 
end  if 

IF(  fl  .gt.  15454.4)  then 
ml  =  8 

g  =  3.3253339e-28 
else 

ml  =  9 

g  -  1.38543546-25 
end  if 

sigma  =  a  (ml)  +  b(ml)*fl  +  c(ml)*f2  +  d(ml)*f3  +  e(ml)*f4 
sigma  -  sigma  +  f(ml)*f5  +  g*f6 

c  Permittivity  and  conductivity  for  medium  dry  ground. 

case  (  3  ) 

epsilon  =  15.0 
IF(  fl  .gt.  4841.945)  THEN 
m  =  10 

epsilon  =  a (m)  +  c(m)*fl  +  e (m)  *f2 

epsilon  =  SQRT (  epsilon  /  (1.  +  b(m)*fl  +  d(m)*f2)  ) 
end  if 
ml  =  12 

IF{  fl  .gt.  4946.751)  ml  =  11 

sigma  =  (a(ml)  +  b(ml)*fl  +  c(ml)*f2  +  d(ml)*f3  + 

+  e(ml)*f4)**2 

c  Permittivity  and  conductivity  for  very  dry  ground. 

case(  4  ) 

epsilon  =  3.0 

IF(  fl  .It.  590.8924  )  then 
sigma  =  l.Oe-4 
else 

IF(  fl  .gt.  7131.933)  THEN 
ml  =  13 

sigma  =  (a(ml)  +  b(ml)*fl  +  c(ml)*f2  +  d(ml)*f3)**2 
else 

ml  -  14 

g  =  9.4623158e-23 
h  =  -1.1787443e-26 
s  =  7.9254217e-31 
t  =  -2.2088286e-35 

sigma  =  a (ml)  +  b(ml)*fl  +  c(ml)*f2  +  d(ml)*f3 
sigma  =  sigma  +  e(ml)*f4  +  f(ml)*f5  +  g*f6 
sigma  =  sigma  +  h*f7  +  s*f8  +  t*f9 
end  if 
end  if 


c  User-defined 


145 


case{  5  ) 

epsilon  =  tr .dielec (1, i) 
sigma  =  tr. dielec (2, i) 

case  default 
!  Do  nothing 
end  select 

tr. dielec  (1,  i)  ==  epsilon 
tr. dielec (2, i)  =  sigma 
end  do 

c  Set  dielectric  constants  equal  to  last  provided  ground  constants  at  le7  km. 

tr.igr  =  tr.igr  +  1 
tr. rgrnd (tr. igr)  =  l.elO 
tr. dielec (1, tr.igr)  =  epsilon 
tr. dielec (2 , tr. igr)  =  sigma 

end 
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8.1.5  Subroutine  GETFFTSZ 


e  ****★*★****★**★*★★********  SUBROUTINE  GETFFTSZ  *************************** 
c  Module  Name:  GETFFTSZ 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Determines  the  FFT  size  needed  for  a  given  problem, 
c  Version  Number:  1.5 
c  INPUTS: 

c  Argument  List:  ZLIM 

c  Common:  FTER,  THETAMAX,  WL 

c  Parameter:  MXNFFT 

c  OUTPUTS: 

c  Argument  List:  ZLIM 
c  Common:  DELZ,  LN,  N,  ZMAX 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 

c  Calling  Routines:  PEINIT 

c  Routines  called:  NONE 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary.  For  parameters 
c  refer  to  TPEM.INC  and  FFTSIZ.INC 

c  Input  Variables: 

c  ZLIM  =  Maximum  height  region  where  PE  solution  is  valid  =  .75  *  ZMAX. 

c  Output  Variables: 

c  ZLIM  =  Calculates  a  new  height  limit  equal  to  .75*ZMAX  only  if  the 

c  maximum  transform  size  needed  is  too  large  to  do  specified 

c  problem.  Fixes  transform  size  to  maximum  and  adjusts  ZMAX  and 

c  ZLIM  accordingly. 

c  Local  Variables: 
c  STHETAMAX  =  Sine  of  THETAMAX 

subroutine  getff tsz (  ZLIM  ) 

include  *  tpem. inc ' 

common  /  miscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

+  antref,  rpe,  hlim(inxrout)  ,  slp(mxter),  fter, 

+  hmref,  htlim 

common  /  pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 

logical  fter 

complex  qi 

sthetamax  =  sin(  thetamax  ) 
delz=  wl  *  .5  /  sthetamax 

c  Set  lower  FFT  limit  to  2**9  for  smooth  surface  cases,  if  terrain  case  then 
c  set  lower  FFT  limit  to  2**10. 

In  =  9 

if (  fter  )  ln=10 
N=2**LN 
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2iaax=delz* float  (n) 

c  Determine  transform  size  needed  to  perform  calculations  to  a  height  of  ZLIM, 
c  up  to  the  maximum  FFT  size  allowed. 

do  while (  .75*zmax  .It.  zlim  ) 

In  =  In  +  1 

if (  In  .gt.  mxnfft  )  exit 
n  =  2**ln 

zmax  ==  delz  *  float  (n) 
end  do 

c  If  the  transform  size  needed  is  too  large  then  set  ZMAX  and  ZLIM 
c  accordingly. 

if (  In  .gt.  mxnfft  )  then 
In  =  mxnfft 
n  =  2**ln 

zmax  =  delz  *  f loat (n) 
zlim  =  .75  *  zmax 
end  if 

end 
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8.1.6  Subroutine  XYINIT 


^  *******************************  SUBROUTINE  XYINIT  ************************* 
c  Module  Name:  XYINIT 

c  Module  Security  Classification:  UNCLASSIFIED 
c  Purpose:  Determines  the  initial  PE  starter  field, 
c  Version  Number:  1.5 
c  INPUTS: 

c  Argument  List:  SV  structure,  TR  structure 
c  Common:  DELP,  FILT(),  FKO,  N,  N34,  RNG2,  WL,  ZMAX 

c  OUTPUTS: 

c  Argument  List:  NONE 
c  Common :  RNG2 ,  U ( ) 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PEINIT 
c  Routines  called:  ANTPAT,  GETALN 

c  GLOSSARY:  For  common  variables  see  main  glossary 
c  Input  Variables: 

c  SV  =  System  structure  for  external  system  data  elements, 

c  SV.ANTHT  =  transmitting  antenna  height  above  local  ground  in  meters, 

c  SV.IPAT  =  integer  value  indicating  type  of  antenna  pattern  desired, 

c  I PAT  =  0  ->  omni 

c  IPAT  =  1  ”>  gaussian 

c  IPAT  =  2  ->  sine  x 

c  IPAT  =  3  ”>  csc**2  X 

c  IPAT  =  4  “>  generic  height-finder 

c  SV. POLAR  =  1-character  string  indicating  polarization.  H-horizontal, 

c  V-vertical . 

c  TR  =  Terrain  structure  for  external  terrain  data  elements, 
c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 
c  Local  Variables: 

c  ANTKO  =  Exponential  term  in  calculation  of  DTERM  and  RTERM 
c  ATTN  =  Attenuation  factor  for  filtering 

c  CRAD  =  Square  root  term  in  reflection  coefficient  calculation 
c  CTHETA  =  Cosine  of  angle  PK 

c  DTERM  =  Field  due  to  real  point  source  at  height  SV.ANTHT,  i.e., 
c  DTERM=exp{“i*sv. antht*fko*sin (theta) } . 

c  DTHETA  =  Bin  width  in  angle-  (or  p-)  space 
c  FACD  =  Antenna  pattern  factor  for  direct  ray  angle, 

c  FACR  =  Antenna  pattern  factor  for  reflected  ray  angle . 

c  PK  =  Angle  value  for  bin  I,  i.e.,  I*DTHETA 

c  REFCOEF  =  Complex  reflection  coefficient. 

c  RTERM  =  Field  due  to  image  point  source  at  height  -SV.ANTHT,  i.e., 
c  RTERM=exp{i*sv.antht*fko*sin(theta) }  . 

c  SGAIN  =  Normalization  factor. 

c  SRAD  =  Sine  term  in  reflection  coefficient  calculation 
c  STHETA  =  Sine  of  angle  PK 
c  ZPK  =  Phase  term  for  DTERM  and  RTERM 

SUBROUTINE  xyinit (  sv,  tr  ) 
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tpem. inc  * 

arrays  /  u (0 imaxpts) ,  filt (0 :maxn4) ,  frsp (Ormaxpts) , 
envpr (Ozmaxpts) ,  ulst (Oimaxpts) 
iniscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

antref,  rpe,  hlim(mxrout) ,  slp(inxter),  fter, 
hmref,  htlim 

pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 
impedance  /  alphav,  rav(0 :maxpts)  ,  rng,  rng2,  cl,  c2, 
rk,  elm,  c2m,  ig,  root 

systemvar  /  sv 
terrain  /  tr 

logical  fter 

complex  u,  frsp,  envpr,  ulst,  qi,  root 

complex  alphav,  rav,  rng,  rng2,  cl,  c2,  rk,  dm,  c2m 

complex  refcoef,  rterm,  dterm,  crad,  srad 

c  Reflection  coefficient  is  defaulted  to  -1  for  horizontal  polarization. 

refcoef  =  cmplx  (  0.  ) 

if (  sv. polar  .eq.  'V  )  call  getaln{  tr  ) 

sgain=  sqrt {  wl  )  /  zmax 

dtheta  =  delp  /  fko 
antko  =  fko  *  sv.antht 

DO  1=0, N 


include 
common  / 

+ 

common  / 

+ 

+ 

common  / 
common  / 


record  / 
record  / 


pk  =  float (i)  *  dtheta 
zpk  =  pk  *  antko 

c  Get  antenna  pattern  factors  for  the  direct  and  reflected  rays. 

call  antpat {  sv. ipat,  pk,  FACD  ) 
call  antpat {  sv.ipat,  -pk,  FACR  ) 

c  If  vertical  polarization,  then  determine  reflection  coefficient. 

if (  sv. polar  .eq.  *V*  )  then 
ctheta  =  cos (  pk  ) 
stheta  =  sin(  pk  ) 
crad  =  csqrt(  rng2  -  ctheta**2  ) 
srad  =  rng2  *  stheta 

refcoef  =  {srad  -  crad)  /  (srad  +  crad) 
end  if 

rterm  =  cmplx  (  cos  (  zpk  ),  sin(  zpk  )  ) 
dterm  =  conjg(  rterm  ) 

u(i)  =  sgain  *  (  facd  *  dterm  +  refcoef  *  facr  *  rterm  ) 

end  do 

c  Filter  upper  1/4  of  the  field. 

do  i  =  n34,  n 

attn  =  filt(i-n34) 
u(i)  =  attn*u(i) 
end  do 

END 
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8.1.7  Subroutine  FFT 


c  ***************************  SUBROUTINE  FFT  ******************************** 
c  Module  Name:  FFT 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Performs  fast  Fourier  sine  transform  on  complex  PE  field  array  U. 
c  Version  Number:  1.5 
c  INPUTS: 

c  Argument  List:  U{) 
c  Common:  LN,  N 
c  Parameter:  MAXPTS 

c  OUTPUTS: 

c  Argument  List:  U() 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PEINIT,  PESTEP 
c  Routines  Called:  SINFFT 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary.  For  parameters, 
c  refer  to  TPEM.INC 

c  Input  Variables: 

c  U()  =  Complex  field  to  be  transformed, 
c  Output  Variables: 

c  U()  =  Transform  of  complex  field. 

c  Local  Variables: 

c  X()  =  Real  part  of  field, 

c  Y()  “  Imaginary  part  of  field. 

subroutine  f f t (  u  ) 

include  ' tpem. inc ' 

common  /  pevar  /  wl,  fko,  delz,  n,  In,  zmax,  n34,  con,  dz2,  nml 
complex  u(0:*) 

dimension  x(0:maxpts),  y(0:maxpts) 

do  i  =  0,  n 

X (i)  =  real (  u (i)  ) 
y{i)  =  imag(  u{i)  ) 
end  do 

call  sinf f t (  In,  X  ) 
call  sinf ft (  In,  Y  ) 

do  i  =  0,  n 

u{i)  =  cmplx{  x(i),  y(i)  ) 
end  do 

end 
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8,1.8  Subroutine  SINFFT 


SUBROUTINE  SINFFT  (  N,  X  ) 
C 


C* 

C* 


C*  PURPOSE:  SINFFT  replaces  the  real  array  X() 

C*  by  its  finite  discrete  sine  transform 

C* 

C*  METHOD  : 

C* 

C*  The  algorithm  is  based  on  a  mixed  radix  (8-4”2)  real  vector 
C*  fast  Fourier  synthesis  routine  published  by  Bergland: 

C* 

C*  (  G.D.  Bergland,  *A  Radix-eight  Fast  Fourier  Transform 

C*  Subroutine  for  Real-valued  Series, *  IEEE  Transactions  on 

C*  Audio  and  Electro-acoustics*,  vol.  AU-17,  pp.  138-144,  1969  ) 

C* 

C*  and  sine  and  cosine  transform  algorithms  for  real  series 
C*  published  by  Cooley,  Lewis,  and  Welch: 

C* 

C*  (J.W.  COOLEY,  P.A.W.  LEWIS  AND  P.D.  WELSH,  *  The  Fast  Fourier 

C*  Transform  Algorithm:  Programming  Considerations  in  the 

C*  Calculation  of  Sine,  Cosine  and  Laplace  Transforms*, 

C*  J.  SOUND  VIB.,  vol.  12,  pp.  315-337,  1970  ). 

C* 

C* 

C*  ARGUMENTS: 

C*  --  INPUT  — 

C* 

C*  N .  transform  size  {  =  2**N  ) 

C* 

C*  X ()....  data  array  dimensioned  2**N  in  calling  program 

C* 

C*  —  OUTPUT  — 

C* 

C*  X ()....  sine  transform 

C* 

C*  TABLES:  array  required  size 

C* 

C*  B  2**N 

C*  JINDX  2**(N-1) 

C*  COSTBL  2**(N-4) 

C*  SINTBL  2** (N-4) 

C* 

C*  Sub-programs  called: 

C* 

C*  R8SYN .  (radix  8  synthesis) 

C* 


* 

* 

* 

* 

★ 
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* 
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c 


include  'fftsiz.inc* 


INTEGER* 4 

N 

DIMENSION 
INTEGER* 4 

X(0:*) 

NMAX2,  NMAX16,  NP,  NPD2, 

NPD4 

PARAMETER 

PARAMETER 

DIMENSION 

DIMENSION 

DIMENSION 

(  NMAX2  =  MAXPTS/2  ) 

(  NMAX16  =  MAXPTS/16  ) 
B(MAXPTS),  JINDX  (NMAX2) 
SINES  (MAXPTS) 

COSTBL  (NMAX16) ,  SINTBL 

(NMAX16) 
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nno  o  o  nnoooo 


SAVE  B,  COSTBL,  JINDX,  SINES,  SINTBL 

SAVE  NSAVE,  N4,  N8,  NP,  NPD2,  NPD4,  NPD16,  NPMl 


DOUBLE  PRECISION  ARG,  DT,  PI 
DATA  NSAVE  /  0  / 

DATA  PI  /  3.1415  92653  58979  32D0  / 


■+ 


10 


20 


30 


IF  (  N  .NE.  NSAVE  )  THEN 

compute  constants  and  construct  tables 

NSAVE  =  N 

N8  =  NSAVE  /  3 

N4  =  NSAVE  -  3  *  N8  -  1 

NP  =  2**N 

NPD2  =  NP  /  2 

NPD4  =  NP  /  4 

NPD16  =  NP  /  16 

NPMl  =  NP  -  1 

build  reciprical  sine  table 

DT  =  PI  /  FLOAT  (  NP  ) 

DO  10  J  =  1,  NPMl 
ARG  =  DT  *  J 

SINES  (  J  )  =  (0.5D0  /  SIN  (  ARG  )) 

CONTINUE 

construct  bit  reversed  subscript  table 

J1  =  0 

DO  30  J  =  1,  NPD2  -  1 
J2  =  NPD2 
CONTINUE 

IF  (  lAND  (  Jl,  J2  )  .NE.  0  )  THEN 
J1  =  lABS  (  Jl  -  J2  ) 

J2  =  J2  /  2 
GO  TO  20 
ENDIF 

Jl  =  Jl  +  J2 
JINDX  (  J  )  =  Jl 
CONTINUE 


C 


form  the  trig  tables  for  the  radix-8  passes; 
tables  are  stored  in  bit  reversed  order. 

Jl  =  0 

DO  50  J  =  1,  NPD16  -  1 
J2  =  NPD16 
40  CONTINUE 

IF  (  lAND  {  Jl,  J2  )  .NE.  0  )  THEN 
Jl  =  lABS  (  Jl  -  J2  ) 

J2  =  J2  /  2 
GO  TO  40 
ENDIF 

Jl  =  Jl  +  J2 

ARG  =  DT  *  FLOAT  (Jl) 

COSTBL  (  J  )  =  COS  (  ARG  ) 

SINTBL  (  J  )  =  -SIN  (  ARG  ) 

50  CONTINUE 

ENDIF 


C 

C 

c 

c 


***  form  the  input  Fourier  coefficients  *** 


B  1 

[  1  )  =  -2. 

*  X  ( 

1  ) 

B  1 

[  2  )  =  2. 

*  X  ( 

NPMl 

Jl 

=  0 

DO 

110  J  =  3, 

NPMl, 

2 

sine  transform 
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J1  =  J1  +  1 

J2  =  JINDX  (  J1  ) 

B(J)  =X(J2-1)-X(J2  +  1) 

B  (  J  +  1  )  =  X  {  NP-J2  ) 

110  CONTINUE 


C 

Q  •*■*★  +  ■*•*"*••*■**★•*'*★********  +  ■*'*•★***•*■★★****** 

C  *  * 

C  *  Begin  Fast  Fourier  Synthesis  * 

C  *  * 

d;  ************************************** 

C 

IF  (  N8  .NE.  0  )  THEN 

C  radix-8  iterations 


INTT  =  1 
NT  =  NPD16 
DO  130  J  =  1,  N8 
J1  =  1  +  INTT 

J2  =  J1  +  INTT 

J3  =  J2  +  INTT 

J4  =  J3  +  INTT 

J5  =  J4  +  INTT 

J6  =  J5  +  INTT 

J7  =  J6  +  INTT 

C*** 

CALL  R8SYN  (INTT,  NT,  COSTBL, 
*  B(J3),  B(J4), 

C*** 

NT  =  NT  /  8 
INTT  =  8  *  INTT 
130  CONTINUE 

END  IF 
C 

IF  (  N4  .GT.  0  )  THEN 
J1  =  NPD4 
J2  =  2*NPD4 
J3  =  3*NPD4 
DO  140  J  =  1,  NPD4 

TO  =  B(J)  +  B(J  +  Jl) 

T1  =  B(J)  -  B(J  +  Jl) 

T2  =  2.  *  B(J  +  J2) 

T3  =  2.  *  B(J  +  J3) 

B(J)  =  TO  +  T2 

B(J  +  J2)  =  TO  -  T2 
B(J  +  Jl)  =  T1  +  T3 
B(J  +  J3)  =  T1  -  T3 
140  CONTINUE 

C 

ELSE  IF  (  N4  .EQ.  0  )  THEN 
C 

K  =  NPD2 

DO  150  J  =  1,  NPD2 
K  =  K  +  1 

T  =  B(J)  +  B  (K) 

B(K)  =  B(J)  -  B  (K) 

B(J)  =  T 

150  CONTINUE 

ENDIF 


SINTBL,  B(l),  B(J1),  B(J2), 
B(J5),  B(J6),  B(J7)  ) 


radix-4  iteration 


radix-2  iteration 


C 

C 

C 

C 

C 

C 

C 

C 

C 


*★****+****★************ 
★  ★ 

*  Form  Transform  * 

★  * 

***★***********★*+**★*** 


sine  transform 
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o  o 


160 


J1  =  NP 

DO  160  J  =  1,  NPMl 

X(J)  =  .25*((  B(J+1)  +  B(J1))  *  SINES(J) 
J1  =  J1  -  1 
CONTINUE 


-  B(J+1)  +  B(J1)  ) 


RETURN 

END 


SUBROUTINE  R8SYN  (  INTT,  NT,  COSTBL,  SINTBL,  BO,  Bl,  B2,  B3, 

*  B4,  B5,  B6,  B7  ) 

C 

c 

C  PURPOSE:  Radix-8  synthesis  subroutine  used  by  mixed  radix  driver. 

C 
C 
C 

c 

c 

DIMENSION  COSTBL ( * ) ,  SINTBL (* ) 

DIMENSION  BO (*) ,  Bl{*),  B2(*),  B3(*),  B4(*),  B5 (*) ,  B6(*),  B7(*) 
C 
C 
C 
C 
C 


C 

C 


C 

C 

C“ 

c 


/// 


Local  variables 


/// 


DOUBLE 

PRECISION 

Cl,  C2,  C3, 

C4, 

C5,  C6, 

C7 

DOUBLE 

PRECISION 

SI,  S2,  S3, 

S4, 

S5,  S6, 

S7 

DOUBLE 

PRECISION 

CPI4,  CPIS, 

R2, 

SPI8 

SAVE  < 

CPI4,  CPIS, 

R2,  SPI8 

DATA  R2  /  1.41421  35623  7310D+0  /, 

*  CPI4  /  0.70710  67811  8655D+0  /, 

*  CPI8  /  0.92387  95325  1129D+0  /, 

*  SPI8  /  0.38268  34323  6509D+0  / 


JT  =  0 
JL  =  2 
JR  =  2 
JI  =  3 

INT8  =  8  *  INTT 


>  60 

K  =  1, 

INTT 

TO 

=  BO (K) 

+ 

Bl 

(K) 

T1 

=  BO  (K) 

- 

Bl 

(K) 

T2 

=  B2  (K) 

+ 

B2 

(K) 

T3 

=  B3  (K) 

+ 

B3 

(K) 

T4 

=  B4 (K) 

+ 

B6 

(K) 

T5 

=  B4  (K) 

- 

B6 

(K) 

T6 

=  B7(K) 

- 

B5 

(K) 

T7 

=  B7(K) 

+ 

B5 

(K) 

T8 

=  R2  * 

(T7 

- 

T5 

T5 

=  R2  * 

(T7 

+ 

T5 

TTO 

=  TO  + 

T2 

T2 

=  TO  - 

T2 

TTl 

=  T1  + 

T3 

T3 

=  T1  - 

T3 

T4 

=  T4  + 

T4 

T6 

=  T6  + 

T6 
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BO{K)  =  TTO  +  T4 

B4 (K)  =  TTO  -  T4 

B1(K)  =  TTl  +  T5 

B5 (K)  =  TTl  -  T5 

B2 (K)  =  T2  +  T6 

B6(K)  =  T2  -  T6 

B3(K)  =  T3  +  T8 

B7(K)  =  T3  -  T8 

60  CONTINUE 
C 

IF  (NT  .EQ.  0  )  RETURN 

C 

KO  =  INT8  +  1 

KLAST  =  INT8  +  INTT 
C 

DO  70  K  =  KO,  KLAST 
T1  =  BO (K)  +  B6 (K) 

T3  =  B0(K)  -  B6(K) 

T2  =  B7(K)  -  B1{K) 

T4  =  B7(K)  +  B1(K) 

T5  =  B2 (K)  +  B4 (K) 

T7  =  B2  (K)  -  B4  (K) 

T6  =  B5 (K)  -  B3 (K) 

T8  =  B5  (K)  +  B3  (K) 

C 

B0(K)  =  (T1  +  T5)  +  (T1  +  T5) 

B4 (K)  =  (T2  +  T6)  +  {T2  +  T6) 

T5  =  T1  -  T5 

T6  =  T2  -  T6 

B2  (K)  =  R2  *  (T6  +  T5) 

B6{K)  =  R2  *  (T6  -  T5) 

T1  =  T3  *  CPI8  +  T4  *  SPI8 

T2  =  T4  *  CPI8  -  T3  *  SPI8 

T3  =  T8  *  CPI8  -  T7  *  SPI8 

T4  =  -  T7  *  CPI8  -  T8  *  SPI8 

B1(K)  =  (T1  +  T3)  +  (T1  +  T3) 

B5(K)  =  (T2  +  T4)  +  (T2  +  T4) 

T3  =  T1  -  T3 

T4  =  T2  -  T4 

B3(K)  =  R2  *  (T4  +  T3) 

B7(K)  =  R2  *  {T4  -  T3) 

70  CONTINUE 


DO  : 

90 

JT 

1, 

N1 

’-1 

Cl 

= 

COSTBL{JT) 

SI 

SINTBL(JT) 

C2 

= 

Cl 

•A- 

Cl 

- 

SI 

* 

SI 

S2 

Cl 

★ 

SI 

+ 

Cl 

* 

SI 

C3 

Cl 

-k 

C2 

- 

SI 

* 

S2 

S3 

= 

C2 

k 

SI 

+ 

S2 

★ 

Cl 

C4 

C2 

k 

C2 

- 

S2 

★ 

S2 

S4 

C2 

k 

S2 

+ 

C2 

* 

S2 

C5 

= 

C2 

k 

C3 

- 

S2 

★ 

S3 

S5 

= 

C3 

k 

S2 

+ 

S3 

* 

C2 

C6 

C3 

k 

C3 

- 

S3 

* 

S3 

S6 

= 

C3 

k 

S3 

+ 

C3 

* 

S3 

Cl 

= 

C3 

k 

C4 

- 

S3 

S4 

SI 

C4 

k 

S3 

S4 

* 

C3 

K 

= 

JI 

k 

INT8 

JO 

JR 

k 

INT8 

+  1 

JLASl 

‘  = 

JC 

1  + 

INTT 

1 

DO 

80 

1  J 

= 

JO, 

JLAST 

K  =  K  +  1 

TRO  =  BO (J)  +  B6{K) 
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c 


c 


c 


c 


c 

c 


c 


TRl  =  BO(J)  -  B6(K) 

TIO  =  B7(K)  -  B1(J) 

Til  =  B7(K)  +  B1(J) 

TR2  =  B4 (K)  +  B2 ( J) 

TI3  =  B4 (K)  -  B2 (J) 

TI2  =  B5  (K)  -  B3  (J) 

TR3  =  B5 (K)  +  B3 (J) 

TR4  =  B4  (J)  +  B2  (K) 

TO  =  B4 ( J)  -  B2 (K) 

TI4  =  B3 (K)  -  B5 (J) 

T1  =  B3  (K)  +  B5  (J) 

TR5  =  CPI4  *  (T1  +  TO) 

TI5  =  CPI4  *  (T1  -  TO) 

TR6  =  B6(J)  +  B0{K) 

TO  =  B6 (J)  -  BO (K) 

TI6  =  B1(K)  -  B7(J) 

T1  =  B1(K)  +  B7(J) 

TR7  =  -  CPI4  *  (TO  -  Tl) 

TI7  =  -  CPI4  *  (TO  +  Tl) 


TO 

=  TRO 

+ 

TR2 

TR2 

=  TRO 

- 

TR2 

Tl 

=  TIO 

+ 

TI2 

TI2 

=  TIO 

- 

TI2 

T2 

=  TRl 

+ 

TR3 

TR3 

=  TRl 

- 

TR3 

T3 

=  Til 

+ 

TI3 

TI3 

=  Til 

TI3 

T5 

=  TI4 

+ 

TI6 

TTR6 

=  TI4 

- 

TI6 

TI6 

=  TR6 

- 

TR4 

T4 

=  TR4 

+ 

TR6 

T7 

=  TI5 

+ 

TI7 

TTR7 

=  TI5 

- 

TI7 

TI7 

=  TR7 

- 

TR5 

T6 

=  TR5 

+ 

TR7 

BO  (J) 

=  TO 

+ 

T4 

BO  (K) 

=  Tl 

+ 

T5 

B4  (J) 

=  C4 

* 

(TO  - 

T4) 

- 

S4 

* 

(Tl 

B4  (K) 

=  C4 

* 

(Tl  - 

T5) 

+ 

S4 

* 

(TO 

B1(J) 

=  Cl 

* 

(T2  + 

T6) 

- 

SI 

* 

(T3  ■ 

B1(K) 

=  Cl 

* 

(T3  + 

T7) 

+ 

SI 

* 

(T2 

B5  (J) 

=  C5 

* 

(T2  - 

T6) 

- 

S5 

•k 

(T3 

B5  (K) 

=  C5 

★ 

(T3  - 

T7) 

+ 

S5 

k 

(T2 

B2  (J) 

=  C2 

* 

(TR2 

+  TTR6) 

- 

S2 

k 

(TI2 

B2  (K) 

=  C2 

* 

(TI2 

+  TI6) 

+ 

S2 

k 

(TR2 

B6  (J) 

=  C6 

* 

(TR2 

-  TTR6) 

- 

S6 

k 

(TI2 

B6(K) 

=  C6 

* 

(TI2 

-  TI6) 

+ 

S6 

k 

(TR2 

B3  (J) 

=  C3 

* 

(TR3 

+  TTR7) 

S3 

k 

(TI3 

B3  (K) 

=  C3 

★ 

(TI3 

+  TI7) 

+ 

S3 

k 

(TR3 

B7(J) 

=  C7 

* 

(TR3 

-  TTR7) 

- 

S7 

k 

(TI3 

B7(K) 

=  C7 

■k 

(TI3 

-  TI7) 

+ 

S7 

k 

(TR3 

CONTINUE 

JR  =  JR  +  2 
JI  =  JI  -  2 

IF  (  JI  .GT.  JL)  GOTO  90 
JI  =  JR  +  JR  -  1 
JL  =  JR 
90  CONTINUE 

RETURN 

END 


T5) 

T4) 

T7) 

T6) 

T7) 

T6) 

+  TI6) 

+  TTR6) 

-  TI6) 

-  TTR6) 

+  TI7) 

+  TTR7) 

-  TI7) 

-  TTR7) 
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8.1.9  Subroutine  TRACEH 


c  ****************************  SUBROUTINE  TRACEH  ***************************** 
c  Module  Name:  TRACEH 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Computes  ray  trace  for  a  single  ray  with  launch  angle  -THETALAUNCH 
c  for  smooth  surface.  For  terrain  case,  launch  angle  is  THETALAUNCH. 

c  Upon  reflection  the  heights  of  this  ray  at  each  output  range  point 

c  RO  is  then  stored  in  HLIM()  for  subsequent  output  of  loss  values 

c  in  array  MLOSS.  This  is  done  so  that  only  loss  values  that  fall 

c  within  the  valid  PE  solution  region  are  output  or  passed  back  in 

c  MLOSS. 

c  Version  Number:  1.5 


c  INPUTS: 

c  Argument  List:  NVROUT 

c  Common:  ANTREF,  DMDH ( ) ,  DROUT,  FTER,  HTDUM{) ,  HTLIM,  JLS,  LVLEP, 
c  RLIM,  THETALAUNCH,  ZLIM 

c  OUTPUTS: 

c  Argument  List :  NONE 
c  Common:  HLIM()  ,  RPE 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 

c  Calling  Routines:  PEINIT 

c  Routines  called:  NONE 


c  GLOSSARY:  For  common  variables  refer  to  main  glossary 
c  Input  Variables: 

c  NVROUT  =  Number  of  output  range  points . 
c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables; 

c  AO  =  Angle  in  radians  of  ray  before  trace  step, 

c  A1  =  Angle  in  radians  of  ray  after  trace  step, 

c  GRAD  =  Gradient  of  current  refractivity  layer, 
c  HO  =  Height  of  ray  in  meters  of  ray  before  trace  step, 

c  HI  =  Height  of  ray  in  meters  of  ray  after  trace  step, 

c  IHU  =  Range  index  at  which  the  traced  ray  has  reached  the  maximum 

c  calculation  height. 

c  JL  =  Index  of  current  refractivity  layer  ray  tracing  through, 

c  RO  =  Range  of  ray  in  meters  before  trace  step, 

c  R1  =  Range  of  ray  in  meters  after  trace  step. 

c  RO  =  Current  output  range  at  which  to  store  height  of  trace  ray  in 

c  HLIM ( ) . 


subroutine  traceh (  nvrout  ) 


include  ' tpem, inc * 


common  / 
common  / 
common  / 

+ 

+ 

common  / 


trvar  /  dmdh (mxlvls) ,  zlim,  jls,  thetalaunch,  rlim 
rhstps  /  dr,  drout,  dzout,  dr2,  zout (mxzout) 
miscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

antref,  rpe,  hlim (mxrout)  ,  slp{mxter),  fter, 
hmref,  htlim 

parinit  /  rv2,  refdum (mxlvls )  ,  htdum (mxlvls )  , 
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+ 


complex  qi 
logical  fter 


profint (0:maxpts) ,  ht (Oimaxpts) ^  is,  Ivlep 


c  Define  one-line  ray  trace  functions: 

radal (  a,  b  )  =  a**2  +2.  *  grad  *  b 
rp(a,  b)=a+b/  grad 
ap(a,  b)=a+b*  grad 

hp(  a,  b,  c  )  =  a  +  (  b**2  -  c**2  )  /  2.  /  grad 

aO  =  “thetalaunch 

if (  fter  )  aO  =  thetalaunch 

hO  =  antref 

jl  =  jls 

ro  =  drout 

ihu  =  0 

rO  =  0. 

rpe  =  0. 

c  Ray  is  traced  through  NVROUT  output  range  points, 
do  i  =  1,  nvrout 

c  Trace  until  ray  reaches  output  range  point  RO. 
do  while (  rO  .It.  ro  ) 
rl  =  ro 


grad  =  dmdh(jl) 
al  =  ap (  aO,  rl-rO  ) 

if (  sign{l.,a0)  .ne.  sign(l.,al)  )  then 
al  =  0. 

rl  =  rp(  rO,  al-aO  ) 
end  if 

hi  =  hp {  hO,  al,  aO  ) 


if  (  (  al  .le.  0.  )  .and.  (  hi  .le.  htdum(jl)  ))  then 
hi  =  htdum(jl) 
rad  =  radal (  aO,  hl-hO  ) 
al  =  -sqrt(  rad  ) 
rl  =  rp{  rO,  al-aO  ) 
jl  =  jl  -  1 

if  (  jl  .  eq.  0  )  jl  =  1 

elseif  (  (  al  .ge.  0.  )  .and.  (  hi  .ge.  htdum{jl+l)  )) 
hi  =  htduiti(jl+l) 
rad  =  radal {  aO,  hl-hO  ) 
al  =  sqrt (  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
jl  =  jl  +  1 

if  (  jl  .gt.  Ivlep  )  jl  =  Ivlep 
end  if 

if {  rl  . gt .  ro  )  then 
rl  =  ro 

al  =  ap (  aO,  rl-rO  ) 
hi  =  hp(  hO,  al,  aO  ) 
end  if 


hO  =  hi 
rO  =  rl 
aO  =  al 

if(  hO  .le. 


l.e-4  )  then 


then 
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aO  =  -aO 
rpe  =  rO 
end  if 

c  If  ray  has  reached  ZLIM  (maximuin  output  height  region)  then  all  heights  for 

c  subsequent  output  range  points  will  also  be  at  ZLIM  -  so  can  exit  loop. 

if {  hO  .gt.  zlim  )  then 
ihu  =  i 
exit 
end  if 
end  do 

if (  ihu  .gt.  0  )  exit 

if  (  aO  .It.  0.  )  hliin(i)  =  0. 

if  {  aO  .ge.  0.  )  hlini(i)  =  hO 

ro  =  ro  +  drout 

end  do 

if {  ihu  . gt .  0  )  then 
do  i  =  ihu,  nvrout 
hliiti(i)  =  htlim 
end  do 
end  if 

end 
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8.1.10  Subroutine  PHASEl 


c  *****************************  SUBROUTINE  PHASEl  **************************** 
c  Module  Name:  PHASEl 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Initialize  free-space  propagator  array  FRSP{)  using  wide-angle 
c  propagator. 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  NONE 

c  Common:  CNST,  DR,  FILT{),  FKO,  FNORM,  N,  N34 
c  OUTPUTS: 

c  Argument  List:  NONE 

c  Common:  FRSP() 

c  Files  Included:  FFTSIZ.INC,  TPEM. INC 
c  Calling  Routines:  PEINIT 
c  Routines  called:  NONE 
c  GLOSSARY: 
c  Input  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables: 

c  AK  =  Term  used  in  ANG  for  each  bin  (i.e.,  I*DELP/FKO) 
c  AKSQ  =  Square  of  AK 

c  ANG  =  Exponent  term: 

c  ANG  =  -i*dr*k* [1-sqrt (1- (p/k) **2) ]  where  k  is  the  free-space 

c  wavenumber,  p  is  the  transform  variable  (p=k*sin (theta) ) ,  and 

c  i  is  the  imaginary  number  (i=sqrt (-1) ) . 

c  ATTN  =  Attenuation  factor  for  filtering, 
c  CAK  =  Square  root  term  in  ANG 
c  DRFK  =  Term  used  in  ANG  (i.e.,  DR*FKO) 

SUBROUTINE  PHASEl 

include  ' tpem. inc ' 

common  /  arrays  /  u(0:maxpts),  filt (0 :maxn4 ) ,  f rsp (0 :maxpts) , 

+  envpr (0:maxpts) ,  ulst (0 :maxpts) 

common  /  miscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

+  antref,  rpe,  hlim(mxrout) ,  slp(mxter),  fter, 

+  hmref,  htlim 

common  /  pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 
common  /  rhstps  /  dr,  drout,  dzout,  dr2,  zout(mxzout) 

logical  fter 

complex  u,  frsp,  envpr,  ulst,  qi 
double  precision  cak 
drfk  =  dr  *  fko 
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DO  1=0, N 

ak  =  float (i)  *  cnst 

aksq=ak  *  ak 

aksq  =  aminl {  1,,  aksq  ) 

cak  =  sqrt(l.  -  aksq) 

ang  =  drfk  *  (  l.dO  -  cak  ) 

ca  =  cos (  ang  ) 

sa  =  -sin(  ang  ) 

frsp(i)  =  fnorm  *  cmplx (  ca,  sa  ) 
end  do 

c  Filter  the  upper  1/4  of  the  propagator  arrays. 

do  i  =  n34,  n 

attn  =  filt(i-n34) 
frsp(i)  =  attn  *  frsp{i) 
end  do 

END 
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8.1.11  Subroutine  PHASE2 


c  ***************************  SUBROUTINE  PHASE2  ****************************** 
c  Module  Name;  PHASE2 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Calculates  the  environmental  phase  term  for  a  given  profile,  then 
c  stores  in  array  ENVPR(). 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  NONE 

c  Common:  DR,  FILT{),  N,  N34,  PROFINT ( ) 
c  OUTPUTS: 

c  Argument  List:  NONE 
c  Common :  ENVPR  ( ) 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PEINIT,  PESTEP 
c  Routines  called:  NONE 
c  GLOSSARY: 
c  Input  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables: 

c  ANG  =  Exponential  argument  in  determining  ENVPR()  (i.e.,  DR*FK0*M*1 . e-6) 

c  where  M  is  the  M-unit  value 

c  ATTN  =  Attenuation  factor  for  filtering 

SUBROUTINE  PHASE2 

include  ' tpem. inc ’ 

common  /  rhstps  /  dr,  drout,  dzout,  dr2,  zout{mxzout) 
common  /  arrays  /  u(0:maxpts),  filt (0 :maxn4) ,  f rsp (0 :maxpts) , 

+  envpr {0:maxpts) ,  ulst (0:maxpts) 

common  /  pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 
common  /  parinit  /  rv2,  refdum(mxlvls)  ,  htdum{mxlvls)  , 

+  profint (0 :maxpts) ,  ht (0 :maxpts) ,  is,  Ivlep 

complex  u,  frsp,  envpr,  ulst 

do  i  =  0,  n 

ang  =  dr  *  profint (i) 
ca  =  cos {  ang  ) 
sa  =  sin(  ang  ) 
envpr (i)  =  cmplx (  ca,  sa  ) 
end  do 

c  Filter  upper  1/4  of  the  arrays. 

do  i  =  n34,  n 

attn  =  filt {i-n34) 
envpr (i)  =  attn  *  envpr (i) 
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end  do 


END 
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8.1.12  Subroutine  PROFREF 


c  ******************************  SUBROUTINE  PROFREF  ************************* 
c  Module  Name:  PROFREF 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  This  subroutine  determines  the  refractivity  profile  with  respect 
c  to  the  reference  height  YREF  which,  depending  on  the  value  of  IFLAG, 

c  can  be  HMINTER  or  the  local  ground  height  above  HMINTER* 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  IFLAG,  YREF 
c  Common:  HTDUM(),  LVLEP,  REFDUMO 
c  Parameter:  MXLVLS 

c  OUTPUTS: 

c  Argument  List:  NONE 
c  Common:  HREF(),  NLVL,  REFREFO 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 

c  Calling  Routines:  PEINIT,  REFINTER 

c  Routines  called:  NONE 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary.  For  parameters  refer 
c  to  FFTSIZ.INC  and  TPEM.INC 

c  Input  Variables: 

c  IFLAG  =  0:  Profile  arrays  REFREFO  and  HREF()  will  be  referenced  to 

c  height  HMINTER,  and  will  also  be  used  to  initialize  REFDUMO 

c  and  HTDUMO  . 

c  =1:  Profile  arrays  REFREFO  and  HREFO  will  be  referenced  to  the 

c  local  ground  height. 

c  YREF  =  Reference  height  in  meters  at  current  range, 

c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables: 

c  FRAC  =  Fractional  height  over  which  to  interpolate 

c  IBMSL  =  Flag  indicating  if  YREF  is  below  mean  sea  level  (msl) 

c  IBMSL=0  ->  YREF  not  below  msl 

c  IBMSL=1  ->  YREF  below  msl 

c  JS  =  Integer  index  incidcating  at  what  index/level  in  array  HTDUMO 

c  YREF  is  located. 

c  NEWL  =  New/adjusted  number  of  levels  to  be  stored  in  HREFO  and  REFREFO 

c  RMU  -  Interpolated  M-unit  value  at  height  YREF 

subroutine  prof ref (  yref,  iflag  ) 

include  'tpem.inc* 

common  /  profwref  /  href  (itixlvls)  ,  ref  ref  (mxlvls)  ,  nlvl 
common  /  parinit  /  rv2,  refdum (mxlvls )  ,  htdum (mxlvls )  , 

+  profint (0 :maxpts) ,  ht (0:maxpts) ,  is,  Ivlep 

nlvl  =  Ivlep 

if (  abs(yref)  .gt.  l.e-3  )  then 
ibmsl  =  0 
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js  =  0 

do  i  =  1,  mxlvls 
href(i)  =  0, 
refref(i)  =  0. 
end  do 

c  Check  to  see  if  reference  height  is  below  mean  sea  level. 

if (  yref  .It.  htdum(l)  )  then 
ibmsl  =  1 
js  =  1 

c  Get  refractivity  profile  level  at  which  the  height  of  the  ground  is  just 
c  above.  This  level  is  JS. 

else 

nlvlml  =  nlvl  -  1 
do  i  -  1,  nlvlml 

if((  yref  -le.  htdum(i+l)  )  .and.  (  yref  .gt.  htdum(i)  )) 

+  js  =  i 

end  do 
end  if 

c  Determine  the  refractivity  value  at  the  ground  and  fill  arrays  HREF()  and 
c  REFREFO  with  refractivity  profile  where  height  0.  now  refers  to  the  ground 
c  reference, i . e. ,  either  local  ground  height  or  HMINTER. 

if ( {  js  .ne.  0  )  .or.  (  ibmsl  .eq.  1  )  )  then 
jspl  =  js  +  1 

frac  =  (yref  -  htdum(js)  )  /  (htdum(  jspl)  -  htdum(js)) 

rmu  =  refdum(js)  +  frac  *  (refdum( j spl)  -  refdum(js)) 

if  {  int  (  frac  )  .eq.  1  )  js  ==  jspl 

newl  =  nlvl  -  js  +1 

ref ref (1)  =  rmu 

hrefd)  =  0. 

k  =  js  +  1 

do  jk  =  2,  newl 

refref(jk)  =  refdum(k) 
href(jk)  =  htdum(k)  -  yref 
k  =  k  +  1 
end  do 
nlvl  =  newl 

if {  if lag  .eq.  0  )  then 
Ivlep  =  nlvl 
do  i  =  1,  mxlvls 

refdum{i)  =  refref{i) 
htdum{i)  =  href(i) 
end  do 
end  if 
end  if 
else 

c  If  the  reference  height  is  0.  then  HREF{)  and  REFREFO  are  equal. 

do  i  =  1 ,  nlvl 

href{i)  =  htdum{i) 
refref(i)  =  refdum(i) 
end  do 
end  if 

end 
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8.1.13  Subroutine  INTPROF 


c  **************************  SUBROUTINE  INTPROF  ****************************** 
c  Module  Name:  INTPROF 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Performs  a  linear  interpolation  vertically  with  height  on  the 
c  refractivity  profile.  Stores  interpolated  profile  in  PROFINT{). 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  NONE 

c  Common:  CON,  HT(),  HREF{),  N,  NLVL,  REFREFO 
c  OUTPUTS: 

c  Argument  List:  NONE 
c  Common:  PROFINT { ) 

c  Files  Included:  FFTSIZ.INC,  TPEM. INC 

c  Calling  Routines:  PEINIT,  REFINTER 

c  Routines  called:  NONE 

c  GLOSSARY: 
c  Input  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables: 

c  HEIGHT  =  Height  on  which  to  interpolate 

c  FRAC  =  Fractional  height  for  interpolation 

SUBROUTINE  intprof 

include  ' tpem. inc ' 

common  /  profwref  /  href (mxlvls) ,  refref (mxlvls) ,  nlvl 
common  /  pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 
common  /  parinit  /  rv2,  refdum(mxivls)  ,  htdum(mxivls)  , 

+  profint (0 :maxpts) ,  ht (0 :maxpts) ,  is,  Ivlep 


J=2 


DO  1=0, N 

height  =  ht(i) 

40  IF ((height  .LE.  href(J))  .OR.  (J  .GE.  nlvl))  then 
k  =  j  -  1 

FRAC  =  (height  -  href(k))  /  (href(J)  -  href(k)) 
profint (I)  =  (refref(k)  +  FRAC  *  (refref(J)  - 
+  refref{k)))  *  con 

else 

J=J+1 
GO  TO  40 
end  if 
end  do 

END 
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8.2  Subroutine  PESTER 


c  ***************************  SUBROUTINE  PESTEP  ****************************** 
c  Module  Name:  PESTEP 

c  Module  Security  Classification:  UNCL7\ESIFIED 

c  Purpose:  Propagates  the  field  by  one  output  range  step  DROUT. 
c  Version  Number:  1.5 
c  INPUTS: 

c  Argument  list:  HMINTER,  RF (refractivity)  structure, 
c  SV(systemvar)  structure,  TR (terrain)  structure, 

c  VNP (inputvar)  structure 

c  Common:  ALPHAV,  Cl,  C2,  ClM,  C2M,  DR,  DR2,  DROUT,  DZ2,  ENVPR(),  FRSP(), 

c  FTER,  IG,  N,  RAV(),  RK,  ROOT,  NMl,  SLP(),  U(),  YLAST,  YCUR,  YCURM 

c  OUTPUTS: 

c  Argument  list:  JEND,  JSTART,  MLOSS(),  ROUT 

c  Common:  ALPHAV,  Cl,  C2,  ClM,  C2M,  ENVPR(),  IG,  RAV(),  RK,  RNG,  RNG2, 
c  ROOT,  U(),  ULSTO,  YCUR,  YCURM,  YLAST 

c  Files  Included:  FFTSI2.INC,  TPEM.INC 

c  CALLING  ROUTINES:  MAIN  DRIVER  PROGRAM  or  TESS  CSCI 

c  ROUTINES  CALLED:  CALCLOS,  DOSHIFT,  FRSTP,  GETALN,  PHASE2,  REFINTER 
c  GLOSSARY:  For  common  variables,  refer  to  main  glossary 
c  Input  variables: 

c  HMINTER  =  Minimum  height  of  user -provided  terrain  profile.  This  is 
c  the  height  for  which  all  internal  calculations  of  the  field 

c  are  referenced. 

c  For  structures  RF,  TR,  VNP,  SV  refer  to  Glossary  in  PEINIT  module, 
c  Output  variables: 

c  JEND  =  Index  at  which  the  valid  propagation  loss  values  end. 
c  JSTART  =  Index  at  which  the  valid  propagation  loss  values  begin, 
c  MLOSSO  =  Array  containing  the  propagation  loss  values  in  centibels, 

c  at  each  output  range  point  ROUT.  All  loss  values  returned 

c  are  referenced  to  height  VNP.HMIN. 

c  ROUT  =  Output  range  in  meters. 

c  Local  variables: 

c  KT  =  Counter  for  terrain  profile. 

c  R  =  Current  PE  range  in  meters. 

c  RLAST  =  PE  range  at  previous  step  in  meters. 

c  RMID  =  Range  at  which  interpolation  for  range-dependent  refractivity 
c  profiles  is  performed.  This  is  equal  to  the  range  midway 

c  between  the  current  and  next  PE  range, 

c  SLOPE  =  Current  slope  of  terrain  segment. 

c  (Note:  the  following  variables  are  only  used  for  vertical  polarization) 
c  AR  =  Complex  coefficient  of  partial  linear  solution  to  homogeneous  equ. 

c  BR  =  Complex  coefficient  of  partial  linear  solution  to  homogeneous  equ. 

c  ARX  =  Partial  linear  solution  to  homogeneous  equ. 

c  BRX  =  Partial  linear  solution  to  homogeneous  equ. 

c  CIC  =  Summation  argument  in  determining  AR. 

c  C2C  =  Summation  argument  in  determining  BR. 

c  CD  =  RAV{i)  or  -RAV(i)  depending  on  power  index, 
c  SUMl  =  Summation  term  in  determining  AR. 

c  SUM2  =  Summation  term  in  determining  BR. 

c  UI  =  U(i)  . 
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c  UNKI  =  U(n-i)  . 

c  W()  =  Difference  equation  of  complex  PE  field  array.  Used  in 
c  intermediate  calculations  only  for  vertical  polarization, 

c  YM()  =  Particular  solution  of  difference  equation.  Used  in 
c  intermediate  calculations  only  for  vertical  polarization. 

subroutine  pestep{  hminter,  vnp,  rf,  tr,  sv,  ROUT,  MLOSS,  JSTART, 
+  JEND  ) 


include  ' tpem. inc ' 


common 

common 

+ 

common 

common 

common 

+ 

+ 

common 

+ 


/  htvar  /  ylast,  ycur,  ycurm 

/  arrays  /  u(0:maxpts),  filt (0:maxn4) ,  frsp (0 imaxpts) , 
envpr  (0  imaxpts)  ,  ulst  (0  zmaxpts) 

/  rhstps  /  dr,  drout,  dzout,  dr2,  zout (mxzout) 

/  pevar  /  wl,  fko,  delz,  n,  In,  zmax,  n34,  con,  dz2,  nml 
/  miscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

antref,  rpe,  hlim(mxrout) ,  slp(mxter),  fter, 
hmref,  htlim 

/  impedance  /  alphav,  rav(0:maxpts) ,  rng,  rng2,  cl,  c2, 
rk,  elm,  c2m,  ig,  root 


record  /  inputvar  /  vnp 
record  /  refractivity  /  rf 
record  /  terrain  /  tr 
record  /  systemvar  /  sv 


logical  fter 

complex  cl,  c2,  rk,  elm,  c2m,  qi,  ar,  br,  suml,  sum2,  clc,  c2c 
complex  alphav,  rav,  rng,  rng2,  ui,  unmi,  root,  arx,  brx,  cd 
complex  u,  frsp,  envpr,  ulst,  w(0:maxpts) ,  ym(0:maxpts) 

integer*2  mloss(*) 


save  r,  kt,  slope 


if (  rout  .le.  l.e-3  )  r  =  0. 
rout  =  rout  +  drout 


DO  while (  r  .It.  rout  ) 

if {  r  .gt.  0.  )  ylast  =  ycur 
rlast  =  r 


c  Store  the  field  arrays  of  the  previous  range  step  for  subsequent  horizontal 
c  interpolation  at  range  ROUT. 

do  i  =  0,  n 

ulst  (i)  =  u (i) 
end  do 


r  =  r  +  dr 
rmid  =  r  -  dr2 

if (  fter  )  then 

if {  abs(r  -  dr)  .le.  l.e-3  )  then 
slope  =  slp(l) 
kt  =  1 
end  if 


c  Check  to  see  if  current  range  is  past  a  range  point  in  terrain  profile, 
c  If  so,  increment  counter,  determine  terrain  height  at  current  range. 

do  while{(r  .gt.  tr . terx (kt+l) )  .and.  (kt  .It.  tr.itp)) 
kt  =  kt  +  1 
slope  =  slp(kt) 
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end  do 

ycur  =  tr.tery(kt)  +  slope  *  (  r  -  tr,terx(kt)  ) 

c  Detenaine  height  at  1/2  range  step  -  for  interpolation  on  refractivity 
c  profiles. 

kp  =  kt 

do  while {  rmid  ,lt.  tr.terx{kp)  ) 
kp  -  kp“l 
end  do 

ycurm  =  tr.tery(kp)  +  slp(kp)  *  (rmid  -  tr.terx(kp)) 

c  Calculate  new  complex  refractive  index  and  impedance  term  if  using  vertical 
c  polarization. 

if (  sv. polar  . eq.  'V  )  then 

if (  r  .gt.  tr.rgrnd(ig+l)  )  then 
ig=ig  +  1 
call  getaln (  tr  ) 
end  if 
end  if 

c  Perform  boundary  shift  for  terrain  case. 

if (  slope  .It.  0.  )  call  doshift 
end  if 

if (  sv. polar  .eg,  *V'  )  then 
do  i  =  1,  nml 

w(i)  =  (u(i+l)  -  u(i-l))  /  dz2  +  alphav  *  u(i) 
end  do 

call  frstp(  frsp,  W  ) 

c  Propagate  Cl  and  C2  coefficients  to  new  range.  NOTE:  ONLY  FOR  SMOOTH 
c  SURFACE . 


cl  =  cl  *  elm 
c2  =  c2  *  c2m 
else 

call  f rstp (  frsp,  U  ) 
end  if 

c  If  range-dependent  and/or  terrain  case,  then  interpolate  on  profile. 

if ( (  rf.nprof  .gt.  1  )  .or.  (  fter  ))  then 
call  refinter (  rf ,  rmid,  hminter  ) 

CALL  PHASE2 
end  if 

c  This  follows  steps  9-11  in  Kuttler's  formulation  for  vertical 
c  polarization.  (Ref.  viewgraphs  from  1995  PE  Workshop) 

if (  sv. polar  .eg.  'V*  )  then 
ym(0)  =  cmplx(0.,0.) 
do  i  =  1,  nml 

ym(i)  =  dz2  *  w(i)  +  root  *  ym(i-l) 
end  do 

u(n)  =  cmplx(0.,0.) 
do  i  =  1,  N 
nmi  =  n  -  i 

u(nmi)  =  root  *  (ym(nmi)  -  u(nmi+l)) 
end  do 

suml  =  cmplx(  0.,  0.  ) 
sum2  =  cmplx(  0.,  0.  ) 
do  i  =  0,  n 
nmi  =  n  -  i 
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ui  =  u(i) 
unmi  =  u(nmi) 

if { (  i  •eq.  0  )  ,or.  (i  .eq.  n  ))  then 
ui  =  .5  *  ui 
unmi  =  .5  *  unmi 
end  if 

iv  =  mod (  i ,  2  ) 
cd  =  rav{i) 

if (  iv  .eq.  1  )  cd  =  -rav(i) 

clc  =  ui  *  rav{i) 
c2c  =  \xrmx  *  cd 


suml  =  suml  +  clc 
sum2  =  sum2  +  c2c 
end  do 

ar  =  cl  -  rk  *  suml 
br  =  c2  -  rk  *  sum2 

do  i  =  0 ,  n 

arx  =  ar  *  rav(i) 
nmi  =  n  -  i 
i V  =  mod  (  nmi ,  2  ) 
cd  =  rav(nmi) 

if  {  iv  .eq.  1  )  cd  =  “rav(nmi) 
brx  =  br  *  cd 
u{i)  =  u(i)  +  arx  +  brx 
end  do 
end  if 

c  Multiply  by  environment  term. 

DO  I  =  1,  nmi 

u ( i )  =  u ( i )  *  envpr ( i ) 
end  do 

c  Perform  boundary  shift  for  terrain  case. 

if ( (  fter  )  .and.  (  slope  .ge.  0.  ))  call  doshift 
end  do 

c  Calculate  propagation  loss  at  range  ROUT. 

call  calclos  (  r,  rout,  rlast,  vnp,  hminter,  MLOSS,  JSTART,  JEND  ) 
end 
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8.2.1  Subroutine  DOSHIFT 


c  *************************  SUBROUTINE  DOSHIFT  ***************************** 
c  Module  Name:  DOSHIFT 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Shifts  the  field  by  the  #  of  bins  corresponding  to  height  of 
c  the  ground. 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  NONE 

c  Common:  DELZ,  N,  NMl,  U{),  YCUR,  YLAST 
c  OUTPUTS: 

c  Argument  List:  NONE 
c  Common:  U() 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PESTEP 
c  Routines  called:  NONE 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary 
c  Input  Variables: 

c  See  main  glossary  for  all  common  variable  definitions 
c  Output  Variables: 

c  U()  =  Complex  PE  field  array  containing  newly  shifted  field  solution, 
c  Local  Variables: 

c  INCR  =  Integer  indicating  which  direction  to  shift  field  U(). 

c  INCR  =  1  ->  terrain  slope  is  positive,  shift  down, 

c  INCR  =  -1  ->  terrain  slope  is  negative,  shift  up. 

c  JEND  =  End  index  in  U()  at  which  to  end  shifting, 

c  JST  =  Start  of  index  in  U ( )  at  which  to  begin  shifting 

c  KBIN  =  #  of  bins  to  shift  field. 

c  YDIF  =  Height  difference  between  current  and  last  ground  elevation, 
subroutine  doshift 
include  ' tpem. inc ' 

common  /  pevar  /  wl,  fko,  delz,  n,  In,  zmax,  n34,  con,  dz2,  nml 
common  /  htvar  /  ylast,  ycur,  ycurm 

common  /  arrays  /  u(0:maxpts),  filt (0:maxn4) ,  frsp (0 :maxpts) , 

+  envpr {0 :maxpts) ,  ulst (0 :maxpts) 

complex  u,  frsp,  envpr,  ulst 

ydif  =  ycur  -  ylast 

kbin  -  nint (  abs(ydif)  /  delz  ) 

if (  kbin  .eq.  0  )  return 

c  If  slope  is  positive  then  shift  array  elements  down. 

if (  ydif  . ge .  0 .  )  then 
incr  =  1 
jst  =  1 

jend  =  nml  -  kbin 
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else 


c  If  slope  is  negative  then  shift  array  elements  up* 

incr  ==  -1 
jst  =  nml 
jend  =  kbin  +  1 
end  if 

kinc  =  incr  *  kbin 
do  j  =  jst,  jend,  incr 
jk  =  j  +  kinc 
u(j)  =  u(jk) 
end  do 

c  If  shifted  down,  fill  the  upper  KBIN  elements  of  U()  with  zero, 
c  If  shifted  up,  fill  the  lower  KBIN  elements  of  U()  with  zero. 

if {  incr  . gt .  0  )  then 
nst  =  n  -  kbin 
do  j  =  nst,  nml 
u(j)  =  0. 
end  do 
else 

do  j  =  1,  kbin 
u(j)  =  0. 
end  do 
end  if 

end 
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8.2.2  Subroutine  GETALN 


c  **************************  SUBROUTINE  GETALN  ****************************** 
c  Module  Name:  GETALN 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Computes  the  impedance  term  ALPHAV  and  the  complex  index  of 
c  refraction  for  finite  conductivity  and  vertical  polarization 

c  calculations.  These  formulas  follow  Kuttler*s  method.  (Ref. 

c  Kuttler's  viewgraphs  from  PE  modeler’s  workshop). 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  TR  structure 
c  Common:  DELZ,  DR,  FKO,  N,  QI,  WL 
c  Parameter:  PI 


c  OUTPUTS : 

c  Argument  List:  NONE 

c  Common:  ALPHAV,  Cl,  C2,  CIM,  C2M,  IG,  RAV(),  RK,  RNG,  RNG2,  ROOT 
c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PESTEP,  XYINIT 
c  Routines  Called:  NONE 

c  GLOSSARY:  For  common  variables,  refer  to  main  glossary.  For  parameters, 
c  refer  to  TPEM.INC 


c 

c 

c 

c 

c 

c 

c 


Input  Variables: 

TR  =  Terrain  structure  for  external  terrain  data  elements. 

TR. DIELEC (,)  =  2”dimensional  array  containing  the  relative 

permittivity  and  conductivity;  DIELEC (l,i)  and 
DIELEC (2, i),  respectively.  Only  needs  to  be  specified 
if  using  IGRND(i)  =  5,  otherwise,  TPEM  will 
calculate  based  on  frequency  and  ground  types  0-4. 


c  Output  Variables: 

c  Refer  to  main  glossary  for  all  common  variables. 


c  Local  Variables: 

c  A  =  Exponential  term  in  computing  CIM  and  C2M 

c  AD  =  Dummy  complex  variable  used  to  in  calculating  complex  root  ROOT 
c  and  CIM  and  C2M 

c  R2  =  Third  element  of  RAV(),  i.e.,  ROOT* *2 

c  RAVLN  =  Complex  natural  logarithim  of  ROOT 

c  R2N  =  (N+l)th  element  of  RAV()  squared,  i.e.,  (ROOT**N)**2 

c  SI  =  Imaginary  term  in  complex  index  of  refraction  squared,  RNG2 

c  SQRAD  =  Complex  square  root  of  1+AD**2 

subroutine  getaln(  tr  ) 


include  ' tpem. inc ‘ 


common  /  rhstps  /  dr,  drout,  dzout,  dr2,  zout(mxzout) 
common  /  pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 
common  /  impedance  /  alphav,  rav(0:maxpts) ,  rng,  rng2,  cl,  c2,  rk, 
+  dm,  c2m,  ig,  root 

common  /  miscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

+  antref,  rpe,  hlim (mxrout ) ,  slp(mxter),  fter, 

+  hmref ,  htlim 
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record  /  terrain  /  tr 

complex  alphav,  rav,  rng,  rng2,  cl,  c2,  rk,  elm,  c2m,  root 
complex  ad,  sqrad,  r2,  a,  ravin,  qi,  r2n 

logical  fter 

si  =  tr. dielec (2 , ig)  *  60.  *  wl 
rng2  =  cmplx (  tr .dielec (1, ig) ,  si  ) 
rng  =  csqrt (  rng2  ) 
alphav  =  qi  *  fko  /  rng 
ad  =  alphav  *  delz 

sqrad  =  csqrt (  1.  +  ad**2  ) 

c  Root  for  vertical  polarization  only. 

root  =  sqrad  -  ad 
do  i  =  0,  n 

rav{i)  =  root**i 
end  do 

r2  =  rav (2) 
r2n  =  rav(n) **2 

rk  =  2.*(1.  -  r2)  /  (1,  +  r2)  /  (1.  -  r2n) 

a  =  dr  *  qi  /  2.  /  fko 

ravin  =  clog(  root  ) 

ad  =  (ravin  /  delz)**2 

elm  =  cexp (  a  *  ad  ) 

ad  ==  (  (ravin  -  qi  *  pi  )  /  delz  )**2 
c2m  =  cexp (  a  *  ad  ) 

end 
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8.2.3  Subroutine  FRSTP 


C  **************************  SUBROUTINE  FRSTP  ****************************** 
c  Module  Name:  FRSTP 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Propagates  the  field  FARRAYO  in  free  space  by  one  range  step, 
c  Version  Number:  1.5 
c  INPUTS: 

c  Argument  List:  FARRAYO,  FRSP() 
c  Common :  NMl 

c  OUTPUTS: 

c  Argument  List:  FARRAYO 
c  Common:  NONE 

c  Files  Included:  NONE 

c  Calling  Routines:  PESTEP 

c  Routines  Called:  FFT 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary 
c  Input  Variables: 

c  FARRAYO  =  Field  array  to  be  propagated  one  range  step  in  free  space 
c  (Z“space) .  If  polarization  is  horizontal,  then  upon  entry 

c  FARRAYO  is  the  field  array  UO.  If  using  vertical 

c  polarization,  FARRAYO  is  WO. 

c  FRSP 0  =  Complex  free  space  propagator  term. 

c  Output  Variables: 

c  FARRAYO  =  Field  array  propagated  one  range  step  in  free  space 
c  (Z“space) .  If  polarization  is  horizontal,  then  upon  exit 

c  FARRAYO  is  the  field  array  UO.  If  using  vertical 

c  polarization,  FARRAYO  is  WO. 

subroutine  frstp{  frsp,  FARRAY  ) 

common  /  pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 
complex  frsp(0:*),  farray(0:*) 

call  f f t (  f array  )  (Transform  to  Fourier  space 

DO  I  =  1,  NMl  (Multiply  by  free-space  propagator 

farray(i)  =  farray{i)  *  frsp(i) 
end  do 

call  f f t (  f array  )  (Transform  back  to  z-space 
end 
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8.2.4  Subroutine  REFINTER 


c  **************************  SUBROUTINE  REFINTER  *************************** 
c  Module  Name:  REFINTER 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Interpolates  vertically  and  horizontally  on  the  refractivity 
c  profiles. 

c  Version  Nuinber:  1.5 


c  INPUTS: 

c  Argument  List:  HMINTER,  RANGE,  RF  structure 
c  Common:  IS,  RV2,  YCURM 


c  OUTPUTS: 

c  Argument  List:  NONE 

c  Common:  IS,  LVLEP,  PROFINT{),  RV2 


c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PESTEP 

c  Routines  called:  INTPROF,  PROFREF,  REMDUP 


c  GLOSSARY:  For  common  variables  refer  to  main  glossary 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Input  Variables: 

HMINTER  =  Internal  reference  height  in  meters  (minimum  height  of  terrain 
profile) . 

RANGE  =  Range  for  profile  interpolation. 

RF  =  Refractivity  structure  for  external  environmental  data  elements. 

RF. LVLEP  =  Number  of  levels  in  refractivity  profile  (for  range 
dependent  case  all  profiles  must  have  same  number  of 
levels) . 

RF.REFMSL(,)  =  2“dimensional  array  containing  refractivity  with 
respect  to  mean  sea  level  of  each  profile.  Array 
format  must  be  REFMSL(I,J)  =  M-unit  value  at  Ith 
level  of  Jth  profile.  J  =  1  for  range-independent 
cases . 

RF.HMSL(,)  =  2-dimensional  array  containing  heights  in  meters  with 

respect  to  mean  sea  level  of  each  profile.  Array  format 
must  be  HMSL(I,J)  =  height  of  Ith  level  of  Jth  profile. 

J  =  1  for  range-independent  cases. 

RF.RNGPROFO  =  Ranges  of  each  profile  in  meters,  i.e.,  RNGPROF(I)  = 
range  of  Ith  profile.  RNGPROF(l)  should  always  be 
equal  to  0. 

RF.NPROF  =  number  of  profiles.  Equals  1  for  range-independent  cases. 


c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables: 

c  FV  =  Fractional  range  over  which  to  interpolate 

c  J  =  index  of  last  refractivity  profile  (for  range -dependent  case) . 

c  RVl  =  range  of  last  refractivity  profile  (for  range-dependent  case) . 


subroutine  ref inter (  rf,  range,  hminter  ) 
include  ’ tpem. inc ' 

common  /  htvar  /  ylast,  ycur,  ycurm 

common  /  parinit  /  rv2,  refdum(mxlvls)  ,  htdum(mxlvls)  , 
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profint (0 rmaxpts) ,  ht (Ormaxpts) ,  is,  Ivlep 


+ 


record  /  refractivity  /  rf 

save  j ,  rvl 

data  j,  rvl  /  0,  0.  / 

c  One-line  interpolation  function 

pint(  pi,  p2  )  =  pi  +  fv  *  (  p2  -  pi  ) 

Ivlep  =  rf. Ivlep 

c  If  there  is  a  range-dependent  refractivity  profile  then  interpolate 
c  horizontally  using  the  two  surrounding  profiles  at  range  RANGE  with  all 
c  duplicate  levels. 

if {  rf.nprof  .gt.  1  )  then 
IF(  range  .gt.  rv2  )  then 
j  =  is 
IS=IS+1 
rvl=rv2 

rv2 =r f . rngpr of (IS) 
end  if 

FV=  (range-rvl)  /  (rv2-rvl) 
do  i  =  1,  Ivlep 

refdum{i)  =  pint  (  rf .  refmsl  (i,  j  )  ,  rf  .refiusl  (i,  is)  ) 
htdum(i)  =  pint (  rf .hmsl (i, j ) ,  rf .hmsl (i,  is)  ) 
end  do 

c  Now  remove  all  duplicate  levels  with  LVLEP  now  being  the  #  of  points  in  the 
c  profile  at  range  RANGE. 

call  remdup 

call  prof ref (  hminter,  0  ) 

c  At  this  point  REFDUM()  and  HTDUM()  are  referenced  to  HMINTER. 
end  if 

c  Using  BS  method  must  determine  height  and  M-unit  profiles  relative  to 
c  ground,  where  YCURM  is  now  the  height  of  the  local  ground  above  the 
c  reference  height  HMINTER. 

call  prof ref (  ycurm,  1  ) 

c  Interpolate  vertically  with  height.  PROFINTO  is  now  an  N-point  (N=2**NFFT) 
c  array  containing  the  interpolated  M-unit  values  for  the  refractivity  at 
c  range  RANGE. 

call  intprof 

end 
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8.2.5  Subroutine  REMDUP 


c  *************************  SUBROUTINE  REMDUP  ***************************** 
c  Module  Name:  REMDUP 

c  Module  Security  Classification:  UNCLASSIFIED 
c  Purpose:  Removes  duplicate  refractivity  levels  in  profile, 
c  Version  Number:  1.5 
c  INPUTS: 

c  Argument  List:  NONE 
c  Common:  HTDUMO,  LVLEP,  REFDUM() 

c  OUTPUTS: 

c  Argument  List:  NONE 
c  Common:  HTDUM(),  LVLEP,  REFDUMO 

c  Files  Included:  FFTSIZ.INC,  TPEM.INC 

c  Calling  Routines:  REFINIT,  REFINTER 

c  Routines  called:  NONE 

c  GLOSSARY: 

c  Input  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Output  Variables: 

c  For  common  variables  refer  to  main  glossary 

c  Local  Variables : 

c  HTl  =  Height  at  (I)th  refractivity  level 

c  HT2  =  Height  at  (I+l)th  refractivity  level 

subroutine  remdup 

include  *  tpem. inc ' 

common  /  parinit  /  rv2,  refdum(mxlvls)  ,  htdum(mxlvls)  , 

+  prof int (0 :maxpts) ,  ht (0 :maxpts) ,  is,  Ivlep 

c  Remove  all  duplicate  levels  in  interpolated  profile 

i  =  1 

do  while {  i  .It.  Ivlep  ) 
htl  =  htdum(i) 
ht2  =  htdum(i+l) 

if  (  abs  {htl-’ht2)  .le.  l.e-3  )  then 
Ivlep  =  Ivlep  “  1 
do  j  =  i,  Ivlep 
jpl  =  j  +  1 
htdum(j)  =  htdum(jpl) 
refdum{j)  =  refdum(jpl) 
end  do 
i  =  i  -  1 
end  if 
i  =  i  +  1 
end  do 

end 
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8.2.6  Subroutine  CALCLOS 


c  *****************************  SUBROUTINE  CALCLOS  *************************** 
c  Module  Name:  CALCLOS 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Determines  the  propagation  loss  at  each  output  range  ROUT  and 
c  all  heights  up  to  ZLIM. 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argument  List:  HMINTER,  R,  RLAST,  ROUT,  VNP  structure 

c  Common:  DR,  DROUT,  DZOUT,  FTER,  HLIM(),  HMREF,  PLCNST,  RPE,  U(),  ULST(), 
c  YLAST,  YCUR,  ZLIM,  ZOUT ( ) 

c  Parameter:  MXZOUT 

c  OUTPUTS: 

c  Argument  List:  JEND,  JSTART,  MLOSS() 
c  Files  Included:  FFTSIZ.INC,  TPEM.INC 
c  Calling  Routines:  PESTEP 
c  Routines  Called:  function  GETPFAC 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary.  For  parameters 
c  refer  to  TPEM.INC 

c  Input  Variables: 

c  HMINTER  =  Reference  height  for  internal  calculations  of  the  field  U(). 

c  R  =  PE  range  in  meters, 

c  RLAST  =  Last  PE  range  in  meters, 

c  ROUT  =  Output  range  in  meters . 

c  Output  Variables: 

c  JEND  =  Index  at  which  valid  loss  values  in  MLOSS  ends, 

c  JSTART  =  Index  at  which  valid  loss  values  in  MLOSS  begin, 

c  MLOSS 0  =  2  byte  integer  array  containing  propagation  loss  values  in 

c  centibels. 

c  Local  Variables: 

c  FSLROUT  =  Free  space  loss  at  ROUT 

c  IC  =  Counter  for  HLIM()  array 

c  IPl  =  Index  in  array  RFACIO  corresponding  to  ground  height  at 

c  previous  PE  range.  All  array  elements  in  RFAC1()  from  1  to 

c  IPl  are  set  equal  to  PFACMIN. 

c  IP2  =  Index  in  array  RFAC2()  corresponding  to  ground  height  at 

c  current  PE  range.  All  array  elements  in  RFAC2()  from  1  to 

c  IP2  are  set  equal  to  PFACMIN. 

c  IZG  =  Number  of  height  output  points  corresponding  to  local  ground 

c  height  at  current  output  range  ROUT,  i.e.,  IZG*DZOUT  =  ZINT. 

c  PFACMIN  =  Minimum  propagation  factor  allowed  to  avoid  overflow 

c  RFACl ( )  =  Array  of  propagation  factor  at  valid  output  height  points 

c  for  range  RLAST 

c  RFAC2()  =  Array  of  propagation  factor  at  valid  output  height  points 

c  for  range  R. 

c  RLOG  =  10.  times  the  logarithm  (base  10)  of  the  current  PE  range  R 

c  RLOGLST  =  10.  times  the  logarithm  (base  10)  of  the  last  PE  range  RLAST 

c  RLOSS  =  Real  propagation  loss  in  cB 

c  XX  =  Fractional  range  at  which  to  interpolate  propagation  factor, 

c  YCH  =  Height  of  terrain  at  current  range  step  relative  to  reference 

c  height  HMREF. 
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c  YCT  =  Height  of  terrain  at  current  range  step  relative  to  minimum 

c  terrain  height  HMINTER. 

c  YLH  =  Height  of  terrain  at  last  range  step  relative  to  reference 

c  height  HMREF. 

c  YLT  =  Height  of  terrain  at  last  range  step  relative  to  minimum 

c  terrain  height  HMINTER. 

c  ZEND2  =  Height  at  which  to  stop  calculating  propagation  factor 

c  ZHT  -  Height  of  desired  output  point  relative  to  HMINTER 

c  ZINT  =  Interpolated  ground  height  at  current  output  range  ROUT. 

subroutine  calclos (  r,  rout,  rlast,  vnp,  hminter,  MLOSS,  JSTART, 

+  JEND  ) 


include  ' tpem.  inc ' 


common 

+ 

+ 

common 

common 

common 

+ 

common 

common 


/  miscvar  /  fnorm,  cnst,  delp,  thetamax,  plcnst,  qi, 

antref,  rpe,  hlim{mxrout) ,  slp(mxter),  fter, 
hmref,  htlim 

/  pevar  /  wl,  fko,  delz,  n.  In,  zmax,  n34,  con,  dz2,  nml 
/  rhstps  /  dr,  drout,  dzout,  dr2,  2out(mxzout) 

/  arrays  /  u(0:maxpts),  filt (0 :maxn4 ) ,  frsp (0 :maxpts) , 
envpr (0 imaxpts) ,  ulst {0 :maxpts) 

/  htvar  /  ylast,  ycur,  ycurm 

/  trvar  /  dmdh (mxlvls) ,  zlim,  jls,  thetalaunch,  rlim 


record  /  inputvar  /  vnp 


complex  u,  frsp,  envpr,  ulst,  qi 


integer*2  mloss(*) 


logical  fter 


dimension  rf acl (mxzout ) ,  rfac2 (raxzout) 


save  ic 


data  pfacmin  /  300.  /  !Set  loinimum  propagation  factor  of  300  dB 

c  Define  in-line  function  for  linear  interpolation. 

plint(pll,  pl2,  frac)  =  pll  +  frac  *  (  pl2  -  pll  ) 

c  Initialize  counter  for  HLIM  array. 

if (  abs{rout  -  drout)  .le.  l.e-3  )  ic  -  1 

ych  =  ycur  -  hmref 
yet  ”  ycur  +  hminter 
ylh  =  ylast  -  hmref 
ylt  =  ylast  +  hminter 

c  Get  height  of  ground  at  output  range  ROUT  and  determine  number  of  vertical 
c  output  points  that  correspond  to  the  ground  height.  Fill  the  loss  array 
c  MLOSS  with  zeros  to  represent  ground  for  those  vertical  output  points. 

XX  =  (rout  -  rlast)  /  dr 
zint  =  plint (  ylast,  ycur,  xx  ) 
izg  =  int {  (zint-hmref)  /  dzout  ) 
do  i  =  1,  izg 
mloss (i)  =0 
end  do 


j start  =  amaxO (  1,  izg+1  ) 
if (  rout  .gt.  rpe  )  then 
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c  If  current  output  range  is  greater  than  RPE  then  begin  calculation  of  loss 
c  values  and  return  them  in  MLOSS(). 

rloglst  =  0. 

if{  rlast  .gt.  0.  )  rloglst  =  10.  *  aloglO (  rlast  ) 
rlog  =  10,  *  aloglO (  r  ) 

fslrout  =  20.  *  aloglO (rout)  +  plcnst  !free  space  loss  at  ROUT 

c  Determine  values  of  array  elements  corresponding  to  the  ground  and  set  these 
c  to  the  minimum  propagation  factor  (-300)  for  later  interpolation. 

if (  f ter  )  then 

ipl  =  int (  ylh  /  dzout  ) 
ip2  =  int (  ych  /  dzout  ) 
ipl  =  amaxO (  0,  ipl  ) 
ip2  -  amaxO (  0,  ip2  ) 

do  i  =  1,  ipl 

rfacl(i)  =  pfacmin 
end  do 

do  i  =  1,  ip2 

rfac2(i)  =  pfacmin 
end  do 

ipl  =  ipl  +  1 
ip2  =  ip2  +  1 

else 

ipl  =  1 
ip2  =  1 
end  if 

c  Determine  height/integer  value  at  which  to  stop  calculating  loss, 
c  NOTE:  For  terrain  cases,  ray  tracing  was  performed 

c  using  the  direct  ray  angle  and  sometimes  HLIM(i)  may  be  less  than  the 
c  local  ground  height.  The  GOTO  statement  is  used  just  as  a  safety  factor 
c  in  this  case. 

zendl  =  amaxl (  zint,  hlim(ic)  ) 
zend2  =  aminl (  zlim,  zendl  ) 

jend  =  amaxO (  0,  nint (  (zend2-hmref )  /  dzout  )  ) 
if (  jend  .It.  j start  )  goto  5 

c  Get  propagation  factor  at  valid  heights  from  field  at  previous  PE  range  step 

if (  rloglst  .gt.  0.  )  then 
do  i  =  ipl,  jend 

zht  =  zout(i)  -  ylt 

rfacl{i)  =  getpfac(  ulst,  rloglst,  zht  ) 
end  do 
end  if 

c  Get  propagation  factor  at  valid  heights  from  field  at  current  range  step. 

do  i  =  ip2,  jend 

zht  =  zout(i)  -  yet 
rfac2(i)  =  getpf ac (  u,  rlog,  zht  ) 
end  do 

c  Interpolate  between  the  two  PE  range  steps  to  get  propagation  loss  at  range 
c  ROUT. 


do  k  =  j start,  jend 

if (  rloglst  .gt.  0.  )  then 

rloss  =  10.* (  plint (  rfacl(k),  rfac2(k),  xx  )  +  fslrout  ) 
mloss{k)  =  int2 (  rloss  ) 
else 
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(  rfac2{k)  +  fslrout  )  ) 


irLLoss{k)  ~  int2  (  10.  * 
end  if 
end  do 

5  continue 

c  Fill  remainder  of  array  with  -1  indicating  non-valid  loss  values. 

jn  =  jend  +  1 
do  i  =  jn,  vnp.nzout 
mloss (i)  =  -1 
end  do 

else 

c  If  current  output  range  is  less  than  RPE  then  there  are  no  current  valid 
c  loss  values  at  any  height  -  fill  MLOSS  with  -1.  JSTART  and  JEND  will  be 
c  equal  and  will  have  a  value  of  1  if  smooth  surface  case,  otherwise  will 
c  have  a  value  of  the  nearest  integer  multiple  of  DZOUT  corresponding  to  the 
c  height  of  the  local  ground. 

jend  =  j start 
do  i  =  j start,  vnp.nzout 
mloss (i)  =  “1 
end  do 

end  if 

ic  =  ic  +  1 

end 
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8.2.7  Function  GETPFAC 


c  *****************************  fxjncTION  GETPFAC  **************************** 
c  Module  Name:  GETPFAC 

c  Module  Security  Classification:  UNCLASSIFIED 

c  Purpose:  Performs  linear  interpolation  in  height  on  the  power  and  then 
c  calculates  propagation  factor  in  dB. 

c  Version  Number:  1.5 

c  INPUTS: 

c  Argimient  List:  HEIGHT,  RLOG,  U() 
c  Common:  DELZ 

c  OUTPUTS: 

c  Function:  GETPFAC 
c  Files  Included:  NONE 
c  Calling  Routines :  CALCLOS 
c  Routines  Called:  NONE 

c  GLOSSARY:  For  common  variables  refer  to  main  glossary 
c  Input  Variables: 

c  HEIGHT  =  receiver  height  in  meters, 

c  RLOG  =10.  *  logarithm  (base  10)  of  PE  range, 
c  U()  =  Complex  field  array. 

c  Output  Variables: 

c  GETPFAC  =  Propagation  factor  in  dB  at  specified  height, 

c  Local  Variables: 

c  FB  =  Real  (fractional)  number  of  bin  widths  corresponding  to  desired 

c  receiver  height 

c  FR  =  Fractional  bin  width  on  which  to  interpolate 

c  NB  =  Integer  number  of  bin  widths  for  which  the  desired  receiver 

c  height  is  just  greater  than. 

c  NBPl  =  Integer  number  of  bin  widths  for  which  the  desired  receiver 
c  height  is  just  below  (i.e.,  NB+1) 

c  POWO  =  Magnitude  of  field  at  height  immediately  below  desired  height, 

c  POWl  =  Magnitude  of  field  at  height  immediately  above  desired  height, 

c  POWMIN  =  Minimum  field  magnitude  allowed  -  used  underflow/overflow 

c  problems. 

c  RPOW  =  Interpolated  field  magnitude 

c  UO  =  Complex  field  at  bin  directly  below  (NB)  desired  receiver  height 

c  U1  =  Complex  field  at  bin  directly  above  (NBPl)  desired  receiver  height 

function  GETPFAC (  u,  rlog,  height  ) 

common  /  pevar  /  wl,  fko,  delz,  n,  In,  zmax,  n34,  con,  dzZ,  nml 

complex  u(0:*),  uO,  ul 

data  powmin/1 . e~13/ 

fb  =  height  /  delz 
nb=int (fb) 
fr=fb“float (nb) 
nbpl=nb+l 
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uO=u(nb) 

ul=u(nbpl) 

powO  =  cabs {  uO  ) 
powl  =  cabs (  ul  ) 

pow  =  powO  +  fr  *  (powl  -  powO) 

rpow  =  amaxl (  pow,  powmin  ) 
getpfac  =  -20.*alogl0(  rpow  )  -  rlog 

end 
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8.3  INCLUDE  Interface  Source  Code 


8.3.1  FFTSIZ.INC 


c  MXNFFT:  Maximum  power  of  2  for  transform  size 

c  MAXPTS:  Maximum  size  of  arrays  for  the  real  and  imaginary  fields 

integer* 4  maxpts,  mxnfft 
parameter  (  mxnfft  =  14) 
parameter  (  maxpts  =  2**mxnfft  ) 

8.3.2  TPEM.INC 


include  *fftsiz.inc* 

integer*4  maxn4,  mxzout,  mxrout,  mxlvls,  mxnprof,  mxter 

parameter  (  maxn4  -  maxpts/4  )  !used  for  filter  array  filters 

lupper  1/4  of  field. 

parameter  {  pi  =  3.1415926  )  ! Self-explanatory 

parameter  (  mxzout  =  385  )  !Maximum  number  of  output  height  points 

parameter  (  mxrout  =  440  )  !Maximum  number  of  output  range  points 

parameter  (  mxlvls  =  300  )  !Maximum  nxamber  of  height/M-unit  levels 

parameter  (  mxnprof  =  30  )  ! Maximum  number  of  profiles  allowed  for 

! range-dependent  environment . 

parameter  (  mxter  =  1002  )  ! Maximum  number  of  height /range  points 

!  allowed  for  terrain  profile 

c  ERRORFLAG: 

c  LERR6  -  Logical  flag  that  allows  for  greater  flexibility  in  allowing  error 
c  -6  to  be  bypassed.  If  set  to  .TRUE,  then  trapping  for  this  error 

c  occurs,  otherwise  it  can  be  totally  ignored  by  main  driver 

program. 

c  (Within  the  TPEM  program  it  is  handled  as  a  warning)  .  If  this 

c  error  is  bypassed  {LERR6  =  .FALSE.)  terrain  profile  is  extended  to 

c  RMAX  with  same  elevation  height  of  last  valid  terrain  profile 

point. 

c  LERR12  =  Same  as  LERR6  -  allows  for  trapping  of  this  error.  If  LERR12  = 

c  .FALSE.,  then  (for  range-dependent  case)  if  range  of  last 

c  refractivity  profile  entered  is  less  than  RMAX,  the  environment 

c  is  treated  as  homogeneous  from  the  last  profile  entered  to  RMAX. 

structure  /  errorflag  / 
logical  lerrS 
logical  lerrl2 
end  structure 

c  INPUTVAR: 

c  HMAX  =  maximum  output  height  with  respect  to  m.s.l.  in  meters 

c  HMIN  =  minimum  output  height  with  respect  to  m.s.l.  in  meters 

c  RMAX  =  maximum  output  range  in  meters 

c  NZOUT  =  integer  number  of  output  height  points  desired 

c  NROUT  ==  integer  number  of  output  range  points  desired 

c  PROPANG  =  Maximum  problem  (propagation)  angle  in  degrees  desired  for 
c  solution.  If  set  to  0.,  then  TPEM  will  determine  it*s  own. 

structure  /  inputvar  / 
real  hmax 
real  hmin 
real  rmax 
integer*4  nzout 
integer* 4  nrout 


186 


real  propang 
end  structure 

c  REFRACTIVITY: 

c  LVLEP  =  number  of  levels  in  refractivity  profile  (for  range  dependent  case 
c  all  profiles  must  have  same  number  of  levels) 

c  REFMSLO  =  2-dimensional  array  containing  refractivity  with  respect  to 
mean 

c  sea  level  of  each  profile.  Array  format  must  be  REFMSL(I,J)  = 

c  M-unit  value  at  Ith  level  of  Jth  profile.  J  =  1  for  range- 

c  independent  cases. 

c  HMSL()  =  2-dimensional  array  containing  heights  in  meters  with  respect  to 
c  mean  sea  level  of  each  profile.  Array  format  must  be  HMSL(I,J)  = 

c  height  of  Ith  level  of  Jth  profile.  J  -  1  for  range- independent 

c  cases. 

c  RNGPROFO  =  ranges  of  each  profile  in  meters,  i.e.,  RNGPROF{I)  =  range  of 
c  Ith  profile.  RNGPROF(l)  should  always  be  equal  to  0. 

c  NPROF  =  number  of  profiles.  Equals  1  for  range- independent  cases. 

structure  /  refractivity  / 
integer* 4  Ivlep 
real  refmsl (mxlvls,  mxnprof) 
real  hmsl (mxlvls,  mxnprof) 
real  rngpr of (mxnprof ) 
integer* 4  nprof 
end  structure 

c  SYSTEMVAR: 

c  FREQ  =  frequency  in  MHz 

c  ANTHT  =  transmitting  antenna  height  above  local  ground  in  meters, 
c  BWIDTH  =  half-power  (3  dB)  antenna  pattern  beamwidth  in  degrees  (.5  to 
45.) 

c  ELEV  =  antenna  pattern  elevation  angle  in  degrees.  (-10  to  10) 
c  POLAR  =  1-character  string  indicating  polarization.  H-horizontal, 
c  V-vertical 

c  I PAT  =  integer  value  indicating  type  of  antenna  pattern  desired 
c  IPAT  =  0  ->  Omni 

c  IPAT  =  1  ->  gauss ian 

c  IPAT  =  2  ->  sine  x 

c  IPAT  =  3  ->  csc**2  X 

c  IPAT  =  4  ->  generic  height-finder 

structure  /  systemvar  / 
real  freq 
real  antht 
real  bwidth 
real  elev 
character*!  polar 
integer* 4  ipat 
end  structure 

c  TERRAIN: 

c  TERXO  =  range  points  of  terrain  profile  in  meters 
c  TERY()  =  height  points  of  terrain  profile  in  meters 
c  ITP  =  number  of  height/range  pairs  in  profile 
c  IGR  =  niamber  of  different  ground  types  specified 

c  IGRNDO  =  type  of  ground  composition  for  given  terrain  profile  -  can  vary 
c  with  range.  Different  ground  types  are:  0  =  sea  water, 

c  1  =  fresh  water,  2  =  wet  ground,  3  =  medium  dry  ground, 

c  4  =  very  dry  ground,  5  =  user  defined  (in  which  case,  values  of 

c  relative  permittivity  and  conductivity  must  be  given)  . 

c  RGRNDO  =  ranges  at  which  the  ground  types  apply 

c  DIELEC (,)  =  2-dimensional  array  containing  the  relative  permittivity  and 
c  conductivity;  DIELEC (l,i)  and  DIELEC (2, i),  respectively, 

c  Only  needs  to  be  specified  if  using  IGRND(i)  =  5,  otherwise, 

c  TPEM  will  calculate  based  on  frequency  and  groimd  types  0-4. 
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structure  /  terrain  / 
real  terx{inxter) 
real  tery(inxter) 
integer*4  itp 
integer*4  igr 
integer* 4  igrnd (50) 
real  rgrnd(50) 
real  dielec (2, 50) 
end  structure 


SOFTWARE  TEST  DESCRIPTION 
FOR  THE 

TERRAIN  PARABOLIC  EQUATION  MODEL  CSCI 
May  1,  1997 
Prepared  for; 

Space  and  Naval  Warfare  Systems  Command  (PMW-185) 
Washington,  DC 

and 

Naval  Sea  Systems  Command  (PEO  USW  ASTO-E/F) 
Washington,  DC 

Prepared  by: 

Naval  Command,  Control  and  Ocean  Surveillance  Center 
Research,  Development,  Test  and  Evaluation  Division 
Tropospheric  Branch  (Code  D883) 

San  Diego,  CA  92152-738 


TABLE  OF  CONTENTS 


1.  SCOPE  1 

1.1  Identification*  1 

1.2  Document  Overview.  1 

2.  REFERENCE  DOCUMENTS  2 

3.  TEST  PREPARATIONS  3 

3.1  Hardware  Preparation  3 

3.2  Software  Preparation  3 

3.3  Other  Pretest  Preparation.  4 

4.  TEST  DESCRIPTIONS  5 

4.1  Requirements  Addressed  6 

4.2  Prerequisite  Conditions  6 

4.3  Test  Inputs  6 

4.4  Expected  Test  Results  13 

4.5  Criteria  for  Evaluating  Results  21 

4.6  Test  Procedure  21 

4.7  Assumptions  and  Constraints  21 

5.  REQUIREMENTS  TRACEABILITY  22 

6.  NOTES  23 

7.  SAMPLE  PROGRAM  LISTING  26 

8.  INPUT  FILE  LISTINGS  FOR  TEST  CASES  28 

8.1  BLOCK.IN  28 

8.2  COSEC2.IN  28 


1 


8.3  EDUCT.m 

29 

8.4  GAUSS.IN 

29 

8.5  HILL.IN 

30 

8.6  HORZ.IN 

31 

8.7  HTFIND.IN 

32 

8.8  MroEL.IN 

32 

8.9  RDLONGB.IN 

33 

8.10  RNGDEP.IN 

36 

8.11  SINEX.IN 

36 

8.12  VERTSEA.IN 

37 

8.13  VERTMIX.IN 

37 

8.14  WEDGE.IN 

38 

LIST  OF  TABLES 


TABLE  3-1  EXTERNAL  IMPLEMENTATION  CONSTANTS  DECLARED  WITHIN  THE  TPEM.INC 

AND  FFTSIZ.INC . 3 

TABLE  4-1  TEST  NAMES  AND  DESCRIPTIONS . 5 

TABLE  4-2  EXTERNAL  ENVIRONMENTAL  DATA  ELEMENT  REQUIREMENTS . 7 

TABLE  4-3  STANDARD  ATMOSPHERE  WITH  118  M/BCM  GRADIENT . 7 

TABLE  4-4  METER  SURFACE  BASED  DUCT  ATMOSPHERE . 7 

TABLE  4-5  ATMOSPHERE  WITH  14  METER  EVAPORATION  DUCT . 8 

TABLE  4-6  RANGE-DEPENDENT  ATMOSPHERE,  STANDARD  ATMOSPHERE . 8 

TABLE  4-7  RANGE-DEPENDENT  ATMOSPHERE,  LOW  ELEVATED  DUCT  TO  HIGH  ELEVATED 

DUCT . 9 

TABLE  4-8  EXTERNAL  EM  SYSTEM  DATA  ELEMENT  REQUIREMENTS . 9 

TABLE  4-9  EXTERNAL  IMPLEMENTATION  DATA  ELEMENT  REQUIREMENTS . 10 

TABLE  4-10  EXTERNAL  TERRAIN  DATA  ELEMENT  REQUIREMENTS . 10 

TABLE  4-1 1  TERRAIN  PROFILE  FOR  TEST  CASE  BLOCK . 1 1 

TABLE  4-12  TERRAIN  PROFILE  FOR  TEST  CASE  HILL . 1 1 

TABLE  4-13  TERRAIN  PROFILE  FOR  TEST  CASE  RDLONGB . 12 

TABLE  4-14  TERRAIN  PROFILE  FOR  TEST  CASE  VERTMDC . 13 

TABLE  4-15  TERRAIN  PROFILE  FOR  TEST  CASE  WEDGE . 13 

TABLE  4-16  EXPECTED  OUTPUT  FOR  BLOCK  TEST . 14 

TABLE  4-17  EXPECTED  OUTPUT  FOR  COSEC2  TEST . 14 

TABLE  4-18  EXPECTED  OUTPUT  FOR  EDUCT  TEST . 15 

TABLE  4-19  EXPECTED  OUTPUT  FOR  GAUSS  TEST . 15 

TABLE  4-20  EXPECTED  OUTPUT  FOR  HELL  TEST . . . 16 

TABLE  4-21  EXPECTED  OUTPUT  FOR  HORZ  TEST . 16 

TABLE  4-22  EXPECTED  OUTPUT  FOR  HTFIND  TEST . 17 

TABLE  4-23  EXPECTED  OUTPUT  FOR  MIDEL  TEST . 17 

TABLE  4-24  EXPECTED  OUTPUT  FOR  RDLONGB  TEST . 18 

TABLE  4-25  EXPECTED  OUTPUT  FOR  RNGDEP  TEST . 18 

TABLE  4-26  EXPECTED  OUTPUT  FOR  SINEX  TEST . 19 

TABLE  4-27  EXPECTED  OUTPUT  FOR  VERTSEA  TEST . 19 

TABLE  4-28  EXPECTED  OUTPUT  FOR  VERTMDC  TEST . 20 

TABLE  4-29  EXPECTED  OUTPUT  FOR  WEDGE  TEST . 20 

TABLE  6-1  ACRONYMS  AND  ABBREVIATIONS . 23 


iii 


1.  SCOPE 


1.1  Identification. 

Terrain  Parabolic  Equation  Model  (TPEM)  computer  software  configuration  item 
(CSCI).  The  purpose  of  the  TPEM  CSCI  is  to  calculate  range-dependent  electromagnetic 
(EM)  system  propagation  loss  within  a  heterogeneous  atmospheric  medium  over  variable 
terrain,  where  the  radio-frequency  index  of  refraction  is  allowed  to  vary  both  vertically 
and  horizontally.  Numerous  Tactical  Environmental  Support  System  (TESS)  applications 
require  EM-system  propagation  loss  values.  The  TPEM  model  described  by  this 
document  may  be  applied  to  two  such  TESS  applications,  one  which  displays  propagation 
loss  on  a  range  versus  height  scale  (commonly  referred  to  as  a  coverage  diagram)  and  one 
which  displays  propagation  loss  on  a  propagation  loss  versus  range/height  scale 
(commonly  referred  to  as  a  loss  diagram). 

1.2  Document  Overview. 

This  document  specifies  the  test  cases  and  test  procedures  necessary  to  perform 
qualification  testing  of  the  TPEM  CSCI.  A  discussion  of  precise  input  values  of  each 
input  variable  required  to  perform  the  test  together  with  final  expected  test  results  is 
presented. 
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2.  REFERENCE  DOCUMENTS 


(a)  Commander-In-Chief,  Pacific  Fleet  Meteorological  Requirement  (PAC  MET)  87- 
04,  "Range  Dependent  Electromagnetic  Propagation  Models." 

(b)  Naval  Oceanographic  Office,  "Software  Documentation  Standards  and  Coding 
Requirements  for  Environmental  System  Product  Development,"  April  1990. 

(c)  Naval  Command,  Control  and  Ocean  Surveillance  Center;  Research, 

Development,  Test  and  Evaluation  Division  (NRaD),  “Operational  Concept  Document  for 
the  Terrain  Parabolic  Equation  Model  CSCI”,  Apr-97. 

(d)  Naval  Command,  Control  and  Ocean  Surveillance  Center;  Research, 

Development,  Test  and  Evaluation  Division  (NRaD),  "Software  Requirements 
Specification  for  the  Terrain  Parabolic  Equation  Model  CSCI,"  Apr-97 

(e)  Naval  Command,  Control  and  Ocean  Surveillance  Center;  Research, 

Development,  Test  and  Evaluation  Division  (NRaD),  "Software  Design  Document  for  the 
Terrain  Parabolic  Equation  Model  CSCI,"  Apr-97. 

(f)  Barrios,  A.  E.,  “Terrain  Parabolic  Equation  Model  (TPEM)  Version  1.5  User’s 
Manual,”  Naval  Command,  Control  and  Ocean  Surveillance  Center,  RDT&E  Division, 
San  Diego,  CA,  NRaD  TD  2898,  February  1996. 
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3.  TEST  PREPARATIONS 


3.1  Hardware  Preparation 
Not  applicable 


3.2  Software  Preparation 

A  short  driver  program,  MAIN.FOR,  has  been  provided  in  Section  7.  This 
program  calls  the  main  software  units,  PEINIT  CSC  and  PESTEP  CSC,  that  comprise  the 
TPEM  CSCI.  The  driver  program  listed  in  Appendix  A  is  shown  only  to  demonstrate  how 
one  would  access  the  TPEM  CSCI  and  to  exercise  the  test  cases  listed  in  the  following 
section.  It  has  been  written  to  read  in  all  necessary  input  data  for  the  following  test  cases 
from  files  in  a  specific  format.  All  necessary  input  information  is  presented  in  tabular  form 
in  section  4.1.1  and  the  input  files  for  each  test  case  are  listed  in  Appendix  B.  Ultimately, 
it  is  the  responsibility  of  the  TESS  CSCI  application  designer  to  provide  the  necessary 
input  in  the  form  required  by  the  TPEM  CSCI. 

Certain  parameter  values  must  be  specified  in  the  include  files  TPEM.INC  and 
FFTSIZ.INC.  The  values  of  the  external  implementation  constants  declared  as  parameters 
and  specified  within  the  include  files  are  listed  in  Table  3-1.  The  values  are  the  same  for 
all  14  tests  and  are  not  explicitly  listed  for  each  separate  test  case. 

Table  3-1  External  Implementation  Constants  Declared  Within  the  TPEM.INC  and 

FFTSIZ.INC 


Name 

Value 

mxnfft 

14 

maxpts 

16384 

mxlvls 

300 

mxrout 

440 

mxzout 

385 

mxnprqf 

30 

mxter 

1002 

3 


3.3  Other  Pretest  Preparation. 


None. 
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4.  TEST  DESCRIPTIONS 


The  test  specification  for  the  TPEM  CSCI  consists  of  14  separate  tests  that  have 
been  selected  to  exercise  all  subroutines  and  functions  of  the  code.  For  ease  of  testing, 
each  of  these  14  tests  has  been  given  a  name  describing  which  portion  of  the  TPEM  CSCI 
is  being  exercised.  All  14  tests  and  their  descriptions  are  listed  in  Table  4-1. 


Table  4-1  Test  Names  and  Descriptions 


Test  Name 
BLOCK 

COSEC2 

EDUCT 

GAUSS 

HILL 

HORZ 

HTFIND 

MIDEL 

RDLONGB 

RNGDEP 

SINEX 

VERTSEA 

VERTMIX 

WEDGE 


_ _ Description _ 

Tests  the  TPEM  CSCI  when  the  terrain  profile  consists  of  a  vertical  flat- 
topped  block  or  obstacle  in  which  the  terrain  slope  is  undefined. 

Tests  the  TPEM  CSCI  when  antenna  pattern  is  of  cosecant-squared  type. 
Tests  the  TPEM  CSCI  when  the  refractivity  consists  of  a  14  meter 
evaporation  duct  profile. 

Tests  the  TPEM  CSCI  when  antenna  pattern  is  of  Gaussian  type. 

Tests  the  TPEM  CSCI  when  the  terrain  profile  consists  of  a  rounded  hill. 
Tests  the  TPEM  CSCI  for  horizontal  polarization  antenna  and  standard 
atmosphere. 

Tests  the  TPEM  CSCI  when  antenna  pattern  is  of  generic  height-finder 
type. 

Tests  the  TPEM  CSCI  for  Gaussian  type  antenna  pattern  and  non-zero 
elevation  angle. 

Tests  the  TPEM  CSCI  for  range-dependent  refractivity  over  a  DTED- 
extracted  terrain  profile  from  Long  Beach  to  Point  Mugu. 

Tests  the  TPEM  CSCI  for  range-dependent  refractivity  over  smooth  earth 
(over- water  case). 

Tests  the  TPEM  CSCI  when  antenna  pattern  is  of  Sine(X)/X  type. 

Tests  the  TPEM  CSCI  for  vertical  polarization  antenna  over  smooth  earth 
(over- water  case). 

Tests  the  TPEM  CSCI  for  vertical  polarization  antenna  over  mixed  land- 
sea  terrain  path. 

Tests  the  TPEM  CSCI  when  the  terrain  profile  consists  of  a  triangular 
wedge. 


4.1  Requirements  Addressed 


Not  applicable. 

4.2  Prerequisite  Conditions 

None. 

4.3  Test  Inputs 

Variable  names  that  are  part  of  structure  elements  are  listed  with  their  respective 
variable  structure  names  as  it  appears  in  MAIN.FOR  via  the  RECORD  statement.  For 
instance,  variables  comprising  the  systemvar  structure  are  listed  as  sv.freq,  sv.antht,  etc., 
where  sv  is  the  variable  name  assigned  to  the  structure  of  type  systemvar  and  specific  data 
element  names  correspond  to  the  names  used  within  reference  e.  Also,  although  there  are 
actual  values  for  all  input  parameters  listed  in  the  input  files  in  Appendix  B,  some  are 
ignored  depending  on  the  values  of  certain  input  parameters.  Those  input  parameters  that 
are  inapplicable  depending  on  the  test  case  are  listed  as  “N/A”  in  the  tables. 

The  external  environmental  data  element  requirements  are  listed  in  Table  4-2  for 
each  test  name,  with  Table  4-3  through  Table  4-7  providing  specific  height  and  M-unit 
values.  The  external  EM  system  data  element  requirements  are  listed  in  Table  4-8. 
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Table  4-2  External  Environmental  Data  Element  Requirements 


Table  4-3  Standard  Atmosphere  with  118  M/km  Gradient 


i 

rf.hmsl(i,l) 

meters 

rf.refmsl(i,  1) 
M-unit 

1 

0. 

0. 

2 

1000. 

118. 

Table  4-4  300  Meter  Surface  Based  Duct  Atmosphere 


i 

rf.hmsl(i,l) 

rf.refmsl(i,l) 

meters 

M-unit 

1 

0. 

339.0 

2 

250. 

368.5 

3 

300. 

319.0 

4 

1000. 

401.6 

Table  4-5  Atmosphere  with  14  Meter  Evaporation  Duct 


i 

rf.hmsl(i,l) 

rf.refmsl(ij) 

meters 

M-unit 

1 

0.000 

339.00 

2 

0.040 

335.10 

3 

0.100 

333.66 

4 

0.200 

332.60 

5 

0.398 

331.54 

6 

0.794 

330.51 

7 

1.585 

329.53 

8 

4.362 

328.65 

9 

6.310 

327.96 

10 

12.589 

327.68 

11 

14.000 

327.67 

12 

25.119 

328.13 

13 

39.811 

329.25 

14 

50.119 

330.18 

15 

63.096 

331.44 

16 

79.433  ' 

334.32 

17 

100.000 

335.33 

18 

125.893 

338.20 

19 

158.489 

341.92 

20 

199.526 

346.69 

21 

209.526 

347.87 

Table  4-6  Range-dependent  Atmosphere,  Standard  Atmosphere 


to  low  elevated  Duct 


Standard  Atmosphere 
rf.mgprof(l)  =  0.  km 

Low  Elevated  Duct 
rf.rngprof(2)  =  100  km 

/ 

rf.hmsl(i,l) 

meters 

rf.rejmsl(i,l) 

M-unit 

rf.hmsl(i,2) 

meters 

rf.rejmsl(i,2) 

M-unit 

1 

0. 

0. 

0. 

330. 

2 

0. 

0. 

191. 

352.5 

3 

0. 

0. 

201. 

343.3 

4 

1000. 

118. 

1201. 

461.1 
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Table  4-7  Range-dependent  Atmosphere,  Low  Elevated  Duct  to  High  Elevated  Duct 


Low  Elevated  Duct 
rfrn?prof(l)  =  0.  km 

High  Elevated  Duct 
rf.mgprof(2)  =  250.  km 

i 

rf.hmsl(i,l) 

meters 

rf.rejmsl(i,l) 

M-unit 

rf.hmsl(i,2) 

meters 

rf.refmsl(i,2) 

M-unit 

1 

0. 

330. 

0. 

330. 

2 

100. 

342.5 

600. 

405. 

3 

230. 

312.5 

730. 

375. 

4 

2000. 

517.8 

2000. 

522.3 

Table  4-8  External  EM  System  Data  Element  Requirements. 


Test  Name 

sv.freq 

MHz 

sv.antht 

meters 

sv.ipat 
note  a 

sv.polar 

sv.bwidth 

deg 

— 

BLOCK 

1000. 

25. 

0 

H 

N/A 

N/A 

COSEC2 

1000. 

25. 

3 

H 

1. 

0. 

EDUCT 

10000. 

15. 

1 

H 

5. 

0. 

GAUSS 

1000. 

25. 

1 

H 

1. 

0. 

HILL 

1000. 

25. 

0 

H 

N/A 

N/A 

HORZ 

1000. 

25. 

0 

H 

N/A 

N/A 

HTFIND 

1000. 

25. 

4 

H 

2. 

0. 

MIDEL 

1000. 

10. 

1 

H 

1. 

5. 

RDLONGB 

1500. 

100. 

0 

H 

N/A 

N/A 

RNGDEP 

300. 

25. 

0 

H 

N/A 

N/A 

SINEX 

1000. 

25. 

2 

H 

1. 

0. 

VERTSEA 

300. 

25. 

0 

V 

N/A 

N/A 

VERTMIX 

100. 

10. 

0 

V 

N/A 

N/A 

WEDGE 

1000. 

25. 

0 

H 

N/A 

N/A 

^Antenna  Pattern:  0=Omni-directional;  l=Gaussian;  2=Sine(X)/X; 
3=Cosecant-squared;  4=Generic  height-finder. 


The  external  implementation  data  element  requirements  that  must  be  specified  for 
each  test  are  listed  in  Table  4-9. 
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Table  4-9  External  Implementation  Data  Element  Requirements 


Test  Name 

efAerr6 

ef.lerrl2 

vnp.nrout 

vnp.nzout 

vnp.rmax 

meters 

vnpMmin 

meters 

vnp.hmax 

meters 

vnp.propang 

deg 

BLOCK 

.true. 

.true. 

1 

20 

50000. 

0. 

1000. 

0. 

COSEC2 

.true. 

.true. 

1 

20 

50000. 

0. 

2000. 

0. 

EDUCT 

.true. 

.true. 

1 

20 

50000. 

0. 

200. 

0. 

GAUSS 

.true. 

.true. 

1 

20 

50000. 

0. 

2000. 

0. 

HILL 

.true. 

.true. 

1 

20 

50000. 

0. 

1000. 

0. 

HORZ 

.true. 

.true. 

1 

20 

50000. 

0. 

2000 

0. 

HTFIND 

1 

20 

50000. 

0. 

2000. 

0. 

MIDEL 

.true. 

.true. 

1 

20 

50000. 

0. 

5000. 

0. 

RDLONGB 

.true. 

.true. 

1 

20 

100000. 

0. 

1000. 

0. 

RNGDEP 

.true. 

.true. 

1 

20 

250000. 

0. 

1000. 

0. 

SINEX 

.true. 

.true. 

1 

20 

50000. 

0. 

2000. 

0. 

VERTSEA 

.true. 

.true. 

1 

20 

300000. 

0. 

1000. 

0. 

VERTMIX 

.true. 

.true. 

1 

20 

50000. 

0. 

100. 

0. 

WEDGE 

.true. 

.true. 

1 

20 

100000. 

0. 

1000. 

0. 

The  external  terrain  data  element  requirements  are  listed  in  Table  4-10.  Terrain 
profiles  used  for  specific  test  cases  are  listed  in  Table  4-1 1  through  Table  4-15. 


Table  4-10  External  Terrain  Data  Element  Requirements 


Test  Name 

tr.terx 

Table 

tr.tery 

Table 

tr.itp 

tr.igr 

tr.igrnd 

Table 

BLOCK 

4-11 

4-11 

6 

N/A 

N/A 

COSEC2 

N/A 

N/A 

N/A 

N/A 

N/A 

EDUCT 

N/A 

N/A 

N/A 

N/A 

N/A 

GAUSS 

N/A 

N/A 

N/A 

N/A 

N/A 

HILL 

4-12 

4-12 

67 

N/A 

N/A 

HORZ 

N/A 

N/A 

N/A 

N/A 

N/A 

HTFIND 

N/A 

N/A 

N/A 

N/A 

N/A 

MIDEL 

N/A 

N/A 

N/A 

N/A 

N/A 

RDLONGB 

4-13 

4-13 

167 

N/A 

N/A 

RNGDEP 

N/A 

N/A 

N/A 

N/A 

N/A 

SINEX 

N/A 

N/A 

N/A 

N/A 

N/A 

VERTSEA 

N/A 

N/A 

N/A 

N/A 

N/A 

VERTMIX 

4-14 

4-14 

2 

2 

4-14 

WEDGE 

4-15 

4-15 

5 

N/A 

N/A 
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Table  4-11  Terrain  Profile  for  Test  Case  BLOCK 


tr.terx(i)  tr.tery(i) 

meters  meters 


1  0.  0. 


2  22500.  0. 


3  22500.  200. 


27500.  200. 


5  27500.  0. 


6  50000.  0. 


Table  4-12  Terrain  Profile  for  Test  Case  HILL 


/ 

tr.terx(i) 

meters 

tr.tery(i) 

meters 

■ 

tr.terx(i) 

meters 

tr.tery(i) 

meters 

■ 

tr.terx(i) 

meters 

tr.tery(i) 

meters 

1 

0. 

0.0 

24 

22500. 

342.7 

47 

28250. 

312.8 

2 

17000. 

0.0 

25 

22750. 

351.2 

48 

28500. 

295.2 

3 

17250. 

3.6 

26 

23000. 

359.7 

49 

28750. 

277.6 

iniiigmi 

17500. 

18.0 

27 

23250. 

368.2 

50 

29000. 

260.1 

5 

17750. 

32.4 

28 

23500. 

375.1 

51 

29250. 

242.5 

6 

18000. 

46.7 

29 

23750. 

377.5 

52 

29500. 

224.9 

7 

18250. 

61.1 

30 

24000. 

379.9 

53 

29750. 

206.8 

8 

18500. 

75.5 

31 

24250. 

382.4 

54 

30000. 

187.3 

9 

18750. 

89.9 

32 

24500. 

384.8 

55 

30250. 

167.8 

10 

19000. 

109.4 

33 

24750. 

387.3 

56 

30500. 

148.4 

11 

19250. 

128.9 

34 

25000. 

389.7 

57 

30750. 

128.8 

12 

19500. 

148.4 

35 

25250. 

387.3 

58 

31000. 

109.4 

13 

19750. 

167.9 

36 

25500. 

384.8 

59 

31250. 

89.9 

14 

20000. 

187.3 

37 

25750. 

382.4 

60 

31500. 

75.5 

15 

20250. 

206.8 

38 

26000. 

379.9 

61 

31750. 

61.1 

16 

20500. 

224.9 

39 

26250. 

377.5 

62 

32000. 

46.7 

17 

20750. 

242.5 

40 

26500. 

375.1 

63 

32250. 

32.3 

18 

21000. 

260.1 

41 

26750. 

368.1 

64 

32500. 

17.9 

19 

21250. 

277.6 

42 

27000. 

359.7 

65 

32750. 

3.6 

20 

21500. 

295.2 

43 

27250. 

351.2 

66 

33000. 

0.0 

21 

21750. 

312.8 

44 

27500. 

342.7 

67 

50000. 

0.0 

22 

22000. 

325.8 

45 

27750. 

334.3 

23 

22250. 

334.3 

46 

28000. 

325.8 
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Table  4-13  Terrain  Profile  for  Test  Case  RDLONGB 


i 

tr.terx(i) 

meters 

trJery(i) 

meters 

i 

trJerxfi) 

meters 

tr.tery(i) 

meters 

■ 

trJerx(i) 

meters 

1 

0.0 

8.0 

57 

20100. 

22.0 

113 

79200. 

2 

300. 

8.0 

58 

20400. 

23.0 

114 

79500. 

3 

600. 

9.0 

59 

20700. 

24.0 

115 

79800. 

4 

900. 

9.0 

60 

21000. 

24.0 

116 

80100. 

5 

1200. 

10.0 

61 

21300. 

25.0 

117 

80400. 

6 

1500. 

11.0 

62 

21600. 

26.0 

118 

80700. 

7 

1800. 

12.0 

63 

21900. 

27.0 

119 

81000. 

8 

2100. 

13.0 

64 

22200. 

27.0 

120 

81300. 

9 

2400. 

14.0 

65 

22500. 

28.0 

121 

81600. 

10 

2700. 

15.0 

66 

22800. 

29.0 

122 

81900. 

11 

3000. 

17.0 

67 

23400. 

29.0 

123 

82200. 

12 

3300. 

19.0 

68 

23700. 

30.0 

124 

82500. 

13 

3600. 

21.0 

69 

24600. 

30.0 

125 

82800. 

14 

3900. 

23.0 

70 

24900. 

32.0  i 

126 

83100. 

15 

4200. 

25.0 

71  , 

25200. 

34.0 

127 

83400. 

16 

4500. 

27.0 

72  ! 

25500. 

38.0  1 

128 

83700. 

17 

4800. 

28.0 

73  I 

26100. 

38.0 

129 

84000. 

18 

5100. 

30.0 

74 

26400. 

36.0 

130 

84300. 

19 

5400. 

31.0 

75 

26700. 

34.0 

131 

84600. 

20 

5700. 

31.0 

76 

27000. 

32.0 

132 

84900. 

21 

6000. 

29.0 

77 

27300.  ' 

27.0 

133 

85200. 

22 

6300. 

23.0 

78 

27600. 

15.0 

134 

85500. 

23 

6600. 

14.0 

79 

27900. 

6.0 

135 

85800. 

24 

6900. 

9.0 

80 

28200. 

1.0 

136 

86100. 

25 

7200.  j 

7.0 

81 

28500. 

0.0 

137 

86700. 

26 

7500. 

7.0 

82 

64500, 

0-0 

138 

87000. 

27 

7800. 

9.0 

83 

64800. 

8-0 

139 

87300. 

28 

8100. 

11-0 

84 

65100, 

30.0 

140 

87600. 

29 

8400. 

14.0 

85 

65400. 

39.0 

141 

87900. 

30 

8700. 

13.0 

86 

65700. 

61.0 

142 

89400. 

31 

9300. 

13.0 

87 

66600. 

61.0 

143 

89700. 

32 

9600. 

12.0 

88 

66900. 

24-0 

144 

90000. 

33 

9900. 

11.0 

89 

1  67200. 

14.0 

145 

90300. 

34 

10200. 

8.0 

90 

1  67500. 

26.0 

146 

90600. 

35 

10800. 

8-0 

91 

67800. 

16.0 

147 

90900. 

36 

11100. 

7.0 

92 

68100. 

1.0 

148 

91200. 

37 

12600. 

7.0 

93 

68400. 

1.0 

149 

!  91500. 

38 

12900. 

6.0 

94 

68700. 

0.0 

150 

91800. 

39 

14400. 

6.0 

95 

73800. 

0.0 

151 

92100. 

40 

14700. 

7.0 

96 

74100, 

1  1.0 

152 

92400. 

41 

15000. 

8.0 

97 

74400. 

1.0 

153 

92700. 

42 

15300. 

8.0 

98 

74700. 

10.0 

154 

93000. 

43 

15600. 

9.0 

99 

75000. 

8.0 

155 

93300 

44 

15900. 

10.0 

100 

75300. 

39.0 

156 

93600. 

45 

16200. 

11.0 

101 

75600. 

45.0 

157 

93900. 

46 

16500. 

11.0 

102 

75900. 

53.0 

158 

96300. 

47 

16800. 

12.0 

103 

76200. 

61.0 

159 

96600. 

48 

17400. 

12.0 

104 

76500. 

61.0 

160 

96900. 

49 

17700. 

13.0 

105 

76800. 

82.0 

161 

97500. 

50 

18000. 

13.0 

106 

77100. 

61.0 

162 

97800. 

51 

18300. 

14,0 

107 

77400. 

78.0 

163 

98100. 

52 

18600. 

15.0 

108 

77700. 

61.0 

164 

99300. 

53 

18900. 

16.0 

109 

78000. 

129.0 

165 

99600. 

54 

19200. 

18.0 

no 

78300. 

30.0 

166 

99900. 

55 

19500. 

20.0 

111 

78600. 

46.0 

167 

100200. 

56 

19800. 

21.0 

112 

78900. 

159.0 

trAery(i) 

meters 

184.0 

226.0 

152.0 

201.0 

244.0 

152.0 

143.0 

91.0 

107.0 

152.0 

152.0 

170.0 

152.0 

66.0 

70.0 

121.0 

152.0 

170.0 

141.0 

139.0 

147.0 

177.0 

152.0 

61.0 

61.0 

70.0 

44.0 

11.0 

1.0 

1.0 

61.0 

84.0 

152.0 

152.0 

101.0 

40.0 

15.0 

20.0 

2.0 

10.0 

4.0 

1.0 

1.0 

0.0 

1.0 

1.0 

0.0 

1.0 

1.0 

2.0 

3.0 

3.0 

2.0 

2.0 

1.0 
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Table  4-14  Terrain  Profile  for  Test  Case  VERTMIX 


i 

tr.terx(i) 

meters 

tr.tery(i) 

meters 

igr 

igmd(i) 
Note  a 

rgrnd(i) 

meters 

1 

0. 

0. 

1 

4 

0. 

2 

50000. 

0. 

2 

0 

25000. 

^  Ground  composition  type:  0=sea  water;  l=fi-esh  water;  2=wet  ground;  3=medium  dry 
ground;  4=very  dry  ground;  5=user-defined  permittivity  and  conductivity. 


Table  4-15  Terrain  Profile  for  Test  Case  WEDGE 


i 

tr.terx(i) 

meters 

tr.tery(i) 

meters 

1 

0. 

0. 

2 

45000. 

0. 

3 

50000. 

200. 

4 

55000. 

0. 

5 

100000. 

0. 

4.4  Expected  Test  Results 


The  expected  test  result  propagation  loss  versus  height  values  for  each  of  the  14 
test  cases  are  listed  in  tabular  form  within  Table  4-16  through  Table  4-29. 
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Table  4-16  Expected  Output  for  BLOCK 
Test 


Height  Propagation  Loss 
meters  dB 


50.0  173.5 

70.1 
66.9 

200.0  162.3 

250.0  157.0 


51.3 
45.8 

40.3 

450.0  135.0 

500.0  129.6 


.3 
.5 

650.0  120.9 

700.0  130.8 

750.0  157.9 


0  125.0 

0  120.7 

900.0  119.9 

950.0  121.7 

1000.0  128.3 


Table  4-17  Expected  Output  for 
COSEC2  Test 


Height 

meters 


400.0 

500.0 


800.0 

900.0 

1000.0 


Propagation  Loss 
dB 


34.4 

24.1 

22.2 
29.6 

126.5 


23.4 
28.0 
26.8 
25.7 
126.4 


27.0 

27.5 
28.8 

29.5 
129.6 


30.9 

31.4 

31.3 

32.6 

33.0 


Table  4-18  Expected  Output  for  EDUCT 


Height  Propagation  Loss 
meters  dB 


10.0  142.7 

20.0  147.3 

30.0  150.0 

40.0  152.2 

50.0  155.7 


58.4 
54.3 

80.0  149.6 

90.0  146.4 

100.0  144.2 


3.0 
2.7 

130.0  143.2 

140.0  145.1 

150.0  149.5 


160.0  161.4 

170.0  151.9 

180.0  145.1 

190.0  142.3 

200.0  141.5 


Table  4-19  Expected  Output  for  GAUSS 


Height 

meters 


400.0 

500.0 


800.0 

900.0 

1000.0 


1400.0 

1500.0 


Propagation  Loss 
dB 


33.6 
23.4 
121.6 
130.6 
127.0 


24.0 
32.9 
32.2 
129.6 
139.1 


39.9 
38.1 
148.2 

150.4 

149.4 


160.3 

163.7 

163.6 

175.1 

179.9 


Height 

meters 


400.0 

500.0 


1000.0 


1400.0 

1500.0 


2000.0 


Propagation  Loss 
dB 


133.6 

123.4 

121.4 
130.0 
125.9 


22.3 

28.6 
126.9 

124.6 

126.8 


26.6 
26.1 
126.5 
126.5 
126.1 


26.5 
26.5 
126.1 
126.5 
126.5 


Height 

meters 


750.0 

1000.0 

1250.0 


Propagation  Loss 
dB 


221.9 

220.0 

225.8 

220.7 

219.8 


222.9 
219.5 
218.2 
206.7 

190.9 


75.8 

62.9 
52.0 

143.0 

135.9 


30.8 
27.7 
26.4 
27.2 
129.8 


Table  4-24  Expected  Output  for 
RDLONGB  Test 


Height  Propagation  Loss 
meters  dB 


50.0  182.6 

100.0  172.0 

150.0  171.2 

200.0  168.0 

250.0  165.2 


300.0  161.7 

350.0  155.1 

400.0  146.7 

450.0  140.3 

500.0  137.4 


550.0  136.9 

600.0  138.7 

650.0  134.0 

700.0  131.5 

750.0  135.4 


800.0  136.7 

850.0  129.9 

900.0  142.0 

950.0  131.1 

1000.0  132.6 


Table  4-25  Expected  Output  for 
RNGDEP  Test 


Height  Propagation  Loss 
meters  dB 


50.0  180.1 

.0  186.5 

.0  186.5 

200.0  177.3 

250.0  167.3 


300.0  155.0 

350.0  150.1 

.0  139.4 

.0  123.6 

.0  117.4 


550.0  124.7 

600.0  118.5 

650.0  119.6 

700.0  123.6 

750.0  127.0 


800.0  128.6 

850.0  130.0 

900.0  131.5 

950.0  133.2 

1000.0  135.0 


Height 

meters 


400.0 

500.0 


1000.0 


1400.0 

1500.0 


Propagation  Loss 
dB 


33.6 
23.4 
121.6 
130.6 
127.0 


24.0 
33.2 
33.0 
131.8 
142.4 


51.9 
51.7 
58.4 
56.0 
150.8 


157.8 

156.2 

150.9 
157.7 

156.3 


Height  Propagation  Loss 
meters  dB 


50.0  I  123.5 

34.5 
124.9 

200.0  134.0 

250.0  136.1 


136.3 

144.4 
150.0 

450.0  147.7 

500.0  145.0 


3.6 
3.0 

650.0  142.8 

700.0  142.7 

750.0  143.0 


3.3 

3.7 


144.3 

950.0  144.7 

1000.0  145.3 


4.5  Criteria  for  Evaluating  Results 


The  calculated  propagation  loss  in  dB  should  match  the  numerical  values  in  each 
table  at  each  of  the  20  levels  shown  to  within  0.1  dB  (1  cB).  TPEM  rounds  its  output  loss 
values  to  the  nearest  1  cB,  and  hence  it  is  possible  for  differences  of  1  cB  to  exist  between 
different  implementations  of  TPEM.  It  is  expected,  however,  that  in  most  cases  the  values 
will  match  those  in  Table  4-16  through  Table  4-29  exactly. 

4.6  Test  Procedure 

1.  The  tester  should  insure  the  implementation  constants  of  Table  3-1,  are  represented 
within  the  FORTRAN  include  files  TPEM.INC  and  FFTSIZ.INC.  The  TPEM  CSCI, 
along  with  the  driver  program  MAIN.FOR,  is  then  compiled  for  execution. 

2.  An  input  data  file  has  been  provided,  as  a  text  file,  for  each  test  case. 

3.  The  TPEM  CSCI  is  executed  in  a  form  that  reads  the  input  data  file,  performs  the 
calculations,  and  writes  the  output  to  a  text  file. 

4.  The  output  file  is  compared  to  the  final  expected  test  results  to  determine  satisfactory 
performance. 

4.7  Assumptions  and  Constraints 

Input  data  elements  are  assumed  to  be  constrained  by  the  limits  listed  within  Tables 
3.3-1  through  3.3-5  of  the  Software  Requirements  Specification. 
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5.  REQUIREMENTS  TRACEABILITY 


(a)  The  provided  driver  program  that  accesses  the  TPEM  CSCI  will  create  an  output 
file  for  each  test  case  called  MAIN.  OUT.  This  output  file  contains  height  in  meters  and 
corresponding  propagation  loss  in  dB  that  should  correspond  to  the  entries  in  Table  4-16 
through  Table  4-29  for  each  test  case. 

(b)  The  provided  program  MAIN.FOR,  when  compiled  with  the  TPEM  CSCI,  will 
read  the  provided  input  files  containing  all  necessary  information  for  each  test  case.  Each 
input  file  is  named  for  each  test  case,  with  a  “.IN”  extension. 
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6.  NOTES 


Table  6-1  is  a  glossary  of  acronyms  and  abbreviations  used  within  this  document. 


Table  6-1  Acronyms  and  Abbreviations 


Term 

Definition 

cB 

centibel 

CSCI 

Computer  Software  Configuration  Item 

dB 

decibel 

ef.lerr6 

controlling  logical  flag  for  error  6 

ef.lerrl2 

controlling  logical  flag  for  error  12 

EM 

electromagnetic 

FORTRAN 

Formula  Translation 

km 

kilometers 

m 

meters 

maxpts 

maximum  size  of  field  arrays  for  all 
possible  applications  of  TPEM 

mxlvls 

maximum  number  of  profile  levels  for  all 
possible  applications  of  TPEM 

mxnfft 

maximum  power  of  2  for  field  array  size 
for  all  possible  applications  of  TPEM 

mxnprof 

maximum  number  of  refractivity  profiles 
for  all  possible  applications  of  TPEM 

mxrout 

maximum  number  of  range  output  points 
for  all  possible  applications  of  TPEM 
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Table  6-1  Acronyms  and  Abbreviations  (cont’dl 


Term 

Definition 

mxter 

maximum  number  of  terrain  profile  points 
for  all  possible  applications  of  TPEM 

mxzout 

maximum  number  of  height  output  points 
for  all  possible  applications  of  TPEM 

N/A 

not  applicable 

rf.hmsl 

reffactivity  profile  height  array 

rf.lvlep 

number  of  levels  in  refractivity  profiles  for 
particular  application  of  TPEM 

rf.nprof 

number  of  refractivity  profiles  for 
particular  application  of  TPEM 

rf.rejmsl 

refractivity  profile  M-unit  array 

rfrngprof 

refractivity  profile  range  array 

sv.antht 

antenna  height 

sv.bwidth 

antenna  vertical  beam  width  (degrees) 

sv.elev 

antenna  elevation  angle  (degrees) 

sv.freq 

EM  system  fi'equency  (MHz) 

sv.ipat 

antenna  pattern 

sv.polar 

antenna  polarization 

TESS 

Tactical  Environmental  Support  System 

TPEM 

Terrain  Parabolic  Equation  Model 

tr.igr 

number  of  ground  composition  types  for 
particular  application  of  TPEM 

tr.igrnd 

ground  composition  type  array 

tr.itp 

number  of  terrain  points  for  particular 
application  of  TPEM 
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Table  6-1  Acronyms  and  Abbreviations  (cont’d) 


Term 

Definition 

tr.rgrnd 

round  composition  type  range  array 

tr.terx 

terrain  profile  range  array 

tr.tery 

terrain  profile  height  array 

vnp.hmax 

Maximum  height  output  for  a  particular 
application  of  TPEM. 

vnp.hmin 

Minimum  height  output  for  a  particular 
application  of  TPEM. 

Number  of  range  output  points  for  a 
particular  application  of  TPEM. 

Number  of  height  output  points  for  a 

vnp.nrout 

vnp.nzout 

particular  application  of  TPEM. 

vnp.propang 

Maximum  propagation  angle  for 
particular  application  of  TPEM. 

vnp.rmax 

Maximum  range  output  for  a  particular 
application  of  TPEM. 

25 


7.  SAMPLE  PROGRAM  LISTING 


The  sample  driver  program  MAIN.FOR,  accesses  the  TPEM  CSCI  and  is  provided 

below. 

c  This  is  a  sample  driver  program  for  TPEM  routines  PEINIT  and  PESTEP. 
c  All  numeric  parameters  passed  to  PEINIT  and  PESTEP  must  be  in  metric 
c  units. 

program  main 

include  * tpem. inc  * 

record  /  errorflag  /  ef 
record  /  inputvar  /  vnp 
record  /  ref r activity  /  rf 
record  /  systemvar  /  sv 
record  /  terrain  /  tr 

integer*2  mloss (mxzout )  iMLOSS  must  be  declared  an  INTEGER*2  array 

iof  size  at  least  MXZOUT. 

character*20  filename 


write(*, * {a\) * ) *  Name  of  input  file?  * 
read(*,  * (^) *  )  filename 

open ( 14,  f ile=f ilename) 


read( 

14, 

* 

) 

ef . lerrS 

read( 

14, 

* 

) 

ef . Ierrl2 

read  ( 

14, 

* 

) 

sv. freq 

1 Frequency  in  MHz. 

read( 

14, 

* 

) 

sv. antht 

! antenna  height. 

read( 

14, 

★ 

) 

sv. ipat 

i antenna  type 

read( 

14, 

1 

(al) *  )  sv. polar 

! antenna  polarization. 

read( 

14, 

* 

) 

sv. bwidth 

IThis  value  is  ignored  for  Omni  antenna. 

read{ 

14, 

* 

) 

sv. elev 

iThis  value  is  ignored  for  Omni  antenna. 

read( 

14, 

* 

) 

vnp. hmin 

IMinimum  height  in  m 

read  ( 

14, 

* 

) 

vnp . hmax 

IMaximum  output  height  in  m 

read( 

14, 

* 

) 

vnp . rmax 

! Maximum  output  range  in  m 

read( 

14, 

* 

) 

vnp. nzout 

iNumber  of  output  height  points. 

read  ( 

14, 

* 

) 

vnp. nrout 

iNumber  of  output  range  points. 

read  ( 

14, 

* 

) 

vnp. propang 

i Maximum  propagation  angle 

read( 

14, 

* 

) 

rf . nprof 

iNumber  of  refractivity  profiles 

do  i  =  1,  rf.nprof 

read(  14,  *  )  rf .rngprof (i)  !Range  of  profiles  in  m 
end  do 

read(  14,  *  )  rf.lvlep  iNumber  of  levels  in  refractivity  profiles, 

do  j  =  1,  rf.nprof 
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do  i  =  1,  rf.lvlep 

read ( 14, * )  rf . hmsl ( i, j ) ,  rf .refmsl (i, j ) 
end  do 
end  do 

read ( 14 , * )  tr . igr 
do  i  =  1,  tr.igr 

read ( 14 , * )  tr  * igrnd ( i ) 
read ( 14 , * )  tr . rgrnd ( i ) 
end  do 

read ( 14 , * )  tr . itp 
do  i  =  1,  tr.itp 

read ( 14 , * )  tr . terx ( i ) , 
end  do 

c  Variables  in  CAPS  are  returned. 

call  peinit (  ef ,  vnp,  rf ,  sv,  tr,  HMINTER,  ROUT,  lERROR  ) 
if (  ierror  . ne .  0  )  then 

write(*,*)  *  ***********  ERROR  IN  PEINIT  *************** 
write(*,*) * ********  IERROR  =  ierror,'  *********** 
return 
end  if 

nr  =  vnp.nrout 

dz  =  (vnp.hmax~vnp.hmin)  /  float ( 


open(  15,  file= 'main. out '  ) 

write{15, ' (lx,  a) ' )  '  m 

do  i  =  1,  nr 

call  pestep(  hminter,  vnp,  rf,  tr,  sv,  ROUT,  MLOSS,  JSTART, 
+  JEND  ) 

write(*,*) 'range  in  km  =  ’,  rout*l.e-3  iOutput  to  screen 

c  Recall  that  MLOSS  is  the  propagation  loss  in  centibels,  i.e., 
c  MLOSS ()  =  NINT(  propagation  loss  in  dB  *  10.  ).  JSTART  =  start  of 
c  valid  loss  points,  JEND  =  end  of  valid  loss  points. 

do  j  =  j start,  jend 

write(15,*)  j*dz,  mloss(j)*.l 
end  do 

end  do 

close( 15 ) 
end 


vnp.nzout  )  1 Determine  height 
i increment  of 
i output  points. 

dB 


i Number  of  terrain  range/height  points 
tr.tery(i) 


I  Number  of  ground  composition  types 

i  Ground  composition  types 
i  Apply  at  ranges 
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8.  INPUT  FILE  LISTINGS  FOR  TEST  CASES 


The  input  files  that  are  read  from  the  sample  driver  program  MAIN.FOR  for  each 
of  the  14  test  cases  are  listed  below  in  Sections  8. 1  through  8. 14.  For  each  test  case,  an 
output  file  containing  height  in  meters  and  propagation  loss  in  dB  (corresponding  to  Table 
4-16  through  Table  4-29)  is  created  called  MAIN.  OUT. 


8.1  BLOCK.IN 


. true. 
. true . 
1000. 
25. 

0 

H 

1. 

0. 

0. 

1000. 

50000. 

20 

1 

0 

1 

0 

2 

0. 

1000. 

1 

0 

0. 

6 


0. 

118 


EF.LERR6  error  flag 
EF.LERR12  error  flag 
Frequency  in  MHz 
Antenna  height  in  m 
Omni  antenna  type 
Horizontal  polarization 

Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Minimum  output  height  in  m 

Maximum  output  height  in  m 

Maximum  output  range  in  m 

Number  of  output  height  points 

Number  of  output  range  points 

Maximum  propagation  angle  (0=automatic  internal  calculation) 

Number  of  refractivity  profiles 

Range  of  first  refractivity  profiles  in  m 

Number  of  levels  in  refractivity  profiles 

:  Height  &  M-unit  value  of  ref.  profile  1,  level  1 
:  Height  &  M-unit  value  of  ref.  profile  1,  level  2 
Number  of  ground  composition  types 

Ground  composition  types  (0=  sea  water,  perfect  cond.  if  H  Pol) 

Range  at  which  ground  composition  type  is  applied  in  m 

Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


0. 

0. 

:  Range 

Sc 

height 

of 

terrain 

point 

1 

22500. 

0. 

:  Range 

Sc 

height 

of 

terrain 

point 

2 

22500. 

200. 

:  Range 

Sc 

height 

of 

terrain 

point 

3 

27500. 

200. 

:  Range 

Sc 

height 

of 

terrain 

point 

4 

27500. 

0. 

:  Range 

Sc 

height 

of 

terrain 

point 

5 

50000, 

0. 

:  Range 

Sc 

height 

of 

terrain 

point 

6 

8.2  COSEC2.IN 


. true . 
. true . 
1000. 
25. 

3 

H 

1. 

0. 

0. 

2000. 

50000. 

20 

1 

0 

1 


EF.LERR6  error  flag 
EF.LERR12  error  flag 
Frequency  in  MHz 
Antenna  height  in  m 
Cosecant-squared  antenna  type 
Horizontal  polarization 

Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Minimum  output  height  in  m 

Maximum  output  height  in  m 

Maximum  output  range  in  m 

Number  of  output  height  points 

Number  of  output  range  points 

Maximum  propagation  angle  (0=automatic  internal  calculation) 

Number  of  refractivity  profiles 
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0  :  Range  of  first  refractivity  profiles  in  m 

2  :  Number  of  levels  in  refractivity  profiles 

0.  0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

1  :  Number  of  ground  composition  types 

0  :  Ground  composition  types  (0=  sea  water) 

0.  :  Range  at  which  ground  composition  type  is  applied  in  m 

0  :  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


8.3  EDUCT.IN 

.true.  :  EF.LERR6  error  flag 

.true.  :  EF.LERR12  error  flag 

10000.  :  Frequency  in  MHz 

15.  :  Antenna  height  in  m 

1  :  Gaussian  antenna  type 

H  :  Horizontal  polarization 

5.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0-  :  Minimum  output  height  in  m 

200.  :  Maximum  output  height  in  m 

50000.  ;  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Maximum  propagation  angle  (0=automatic  internal  calculation) 

1  :  Number  of  refractivity  profiles 

0  :  Range  of  first  refractivity  profiles  in  m 

21  :  Number  of  levels  in  refractivity  profiles 

0.  339.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

.040  335.10  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

.1  333.66  :  Height  &  M-unit  value  of  ref.  profile  1,  level  3 

.2  332.6  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

.398  331.54  :  Height  &  M-unit  value  of  ref.  profile  1,  level  5 

.794  330.51  :  Height  &  M-unit  value  of  ref.  profile  1,  level  6 

1.585  329.53  :  Height  &  M-unit  value  of  ref.  profile  1,  level  7 

3.162  328.65  :  Height  &  M-unit  value  of  ref.  profile  1,  level  8 

6.310  327.96  :  Height  &  M-unit  value  of  ref.  profile  1,  level  9 

12.589  327.68  ;  Height  &  M-unit  value  of  ref.  profile  1,  level  10 

14.  327.67  :  Height  &  M-unit  value  of  ref.  profile  1,  level  11 

25.119  328.13  :  Height  &  M-unit  value  of  ref.  profile  1,  level  12 

39.811  329.25  :  Height  &  M-unit  value  of  ref.  profile  1,  level  13 

50.119  330.18  :  Height  &  M-unit  value  of  ref.  profile  1,  level  14 

63.096  331.44  :  Height  &  M-unit  value  of  ref.  profile  1,  level  15 

79.433  333.12  :  Height  &  M-unit  value  of  ref.  profile  1,  level  16 

100.  335.33  :  Height  &  M-unit  value  of  ref.  profile  1,  level  17 

125.893  338.2  :  Height  &  M-unit  value  of  ref.  profile  1,  level  18 

158.489  341.92  :  Height  &  M-unit  value  of  ref.  profile  1,  level  19 

199.526  346.69  :  Height  &  M-unit  value  of  ref.  profile  1,  level  20 

209.526  347.87  :  Height  &  M-unit  value  of  ref.  profile  1,  level  21 

1  :  Number  of  ground  composition  types 

0  :  Ground  composition  types  (0=  sea  water) 

0.  :  Range  at  which  ground  composition  type  is  applied  in  m 

0  :  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


8.4  GAUSS.IN 

.true.  :  EF.LERR6  error  flag 
.true.  :  EF.LERR12  error  flag 
1000.  :  Frequency  in  MHz 

25.  :  Antenna  height  in  m 

1  :  Gaussian  antenna  type 

H  :  Horizontal  polarization 


1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Maximum  propagation  angle  (0=automatic  internal  calculation) 

1  :  Number  of  refractivity  profiles 

0  :  Range  of  first  refractivity  profiles  in  m 

2  :  Number  of  levels  in  refractivity  profiles 

0.  0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

1  :  Number  of  ground  composition  types 

0  :  Ground  composition  types  (0=  sea  water) 

0.  :  Range  at  which  ground  composition  type  is  applied  in  m 

0  :  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


8.5  HILL.IN 


.true.  :  EF.LERR6  error  flag 

.true.  :  EF.LERR12  error  flag 

1000.  :  Frequency  in  MHz 

25.  :  Antenna  height  in  m 

0  :  Omni  antenna  type 

H  :  Horizontal  polarization 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Maximum  propagation  angle  (0=automatic  internal  calculation) 

1  :  Number  of  refractivity  profiles 

0  :  Range  of  first  refractivity  profiles  in  m 

2  :  Number  of  levels  in  refractivity  profiles 

0.  0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

1  :  Number  of  ground  composition  types 

0  :  Ground  composition  types  (0=  sea  water,  perfect  cond.  if  H  Pol) 

0.  :  Range  at  which  ground  composition  type  is  applied  in  m 

67  :  Number  of  terrain  range /height  points  (if  0,  then  will  ignore  remainder) 

0.0  0.0  ;  Range  &  height  of  terrain  point  1  in  meters 

17000.  0.0 

17250.0  3.6 

17500.  18. 

17750.0  32,4 
18000.0  46.7 
18250.0  61.1 
18500.0  75.5 
18750.0  89.9 

19000.0  109.4  :  Range  &  height  of  terrain  point  10  in  meters 

19250.0  128.9 
19500.0  148.4 
19750.  167.9 

20000.0  187.3 
20250.  206.8 

20500.0  224.9 
20750.0  242.5 
21000.0  260.1 
21250.0  277.6 

21500.0  295.2  :  Range  &  height  of  terrain  point  20  in  meters 

21750.  312.8 

22000.0  325.8 
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22250.0 

334.3 

22500.0 

342.7 

22750.0 

351.2 

23000.0 

359.7 

23250. 

368.2 

23500.0 

375.1 

23750. 

377.5 

24000.0 

379.9 

24250.0 

382.4 

24500. 

384.8 

24750. 

387.3 

25000.0 

389.7 

25250. 

387.3 

25500.0 

384.8 

25750.0 

382.4 

26000.0 

379.9 

26250.0 

377.5 

26500.0 

375.1 

26750.0 

368.1 

27000.0 

359.7 

27250. 

351.2 

27500. 

342.7 

27750.0 

334.3 

28000. 

325.8 

28250.0 

312.8 

28500.0 

295.2 

28750.0 

277.6 

29000.0 

260.1 

29250.0 

242.5 

29500.0 

224.9 

29750.0 

206.8 

30000.0 

187.3 

30250. 

167.8 

30500.0 

148.4 

30750. 

128.8 

31000. 

109.4 

31250.0 

89.9 

31500. 

75.5 

31750.0 

61.1 

32000.0 

46.7 

32250.0 

32.3 

32500.0 

17.9 

32750.0 

3.6 

33000.0 

0.0 

50000.0 

0.0 

:  Range  &  height  of  terrain  point  30  in  meters 


:  Range  &  height  of  terrain  point  40  in  meters 


:  Range  &  height  of  terrain  point  50  in  meters 


:  Range  &  height  of  terrain  point  60  in  meters 


:  Range  &  height  of  terrain  point  67  in  meters 


8.6  HORZ.IN 


•  true . 
. true . 
1000. 
25. 

0 

H 

1. 

0. 

0. 

2000. 

50000. 

20 

1 

0 

1 

0 

2 


EF.LERR6  error  flag 
EF.LERR12  error  flag 
Frequency  in  MHz 
Antenna  height  in  m 
Omni  antenna  type 
Horizontal  polarization 

Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Minimum  output  height  in  m 

Maximum  output  height  in  m 

Maximum  output  range  in  m 

Niamber  of  output  height  points 

Number  of  output  range  points 

Maximum  propagation  angle  (0=automatic  internal  calculation) 

Number  of  refractivity  profiles 

Range  of  first  refractivity  profiles  in  m 

Number  of  levels  in  refractivity  profiles 
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0.  0.  :  Height  ^  M-unit  value  of  ref.  profile  1,  level  1 

1000.  118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

1  :  Number  of  ground  composition  types 

0  :  Ground  composition  types  (0=  sea  water) 

0.  :  Range  at  which  ground  composition  type  is  applied  in  m 

0  :  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


8.7  HTFIND.IN 


. true . 
. true- 
1000. 
25. 

4 

H 

2. 

0. 

0. 

2000. 

50000. 

20 

1 

0 

1 

0 

2 

0. 

1000. 

1 

0 

0. 

0 


:  EF.LERR6  error  flag 
:  EF.LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 
:  Generic  height-finder  antenna  type 
:  Horizontal  polarization 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Maximum  propagation  angle  (0=automatic  internal  calculation) 

:  Number  of  refractivity  profiles 
:  Range  of  first  refractivity  profiles  in  m 
:  Niomber  of  levels  in  refractivity  profiles 
0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

118,  :  Height  &  M-unit  value  of  ref.,  profile  1,  level  2 

:  Number  of  ground  composition  types 
:  Ground  composition  types  (0=  sea  water) 

:  Range  at  which  groxind  composition  type  is  applied  in  m 

:  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


8.8  MIDEL.IN 


. true . 
. true . 
1000. 
10. 

1 

H 
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0. 
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50000. 
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0 

1 
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2 

0. 

1000. 

1 

0 

0. 

0 


:  EF.LERR6  error  flag 
:  EF.LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 
:  Gaussian  antenna  type 
:  Horizontal  polarization 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Maximum  propagation  angle  (0=automatic  internal  calculation) 

:  Number  of  refractivity  profiles 
:  Range  of  first  refractivity  profiles  in  m 
:  Number  of  levels  in  refractivity  profiles 
0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

:  Number  of  ground  composition  types 
:  Ground  composition  types  (0=  sea  water) 

:  Range  at  which  ground  composition  type  is  applied  in  m 

:  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 
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8.9  RDLONGB.IN 


. true , 

. true . 
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0. 

0. 
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0 

100000. 

4 

0. 

0. 

0. 

1000. 

0. 

191. 

201. 
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1 

0 

0. 

167 

0000. 

0300. 

0600. 

0900. 

1200. 

1500. 

1800. 
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2400. 

2700. 

3000. 

3300. 

3600. 

3900. 

4200. 

4500. 

4800. 

5100. 

5400. 

5700. 

6000. 

6300. 

6600. 

6900. 

7200. 

7500. 

7800. 

8100. 

8400. 

8700. 

9300. 

9600. 

9900. 


:  EF.LERR6  error  flag 
:  EF.LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 
:  Omni  antenna  type 
:  Horizontal  polarization 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Maximum  propagation  angle  (0=automatic  internal  calculation) 

:  Number  of  refractivity  profiles 
:  Range  of  first  refractivity  profile  in  m 
:  Range  of  second  refractivity  profile  in  m 
:  Number  of  levels  in  refractivity  profiles 
0.  :  Height  &  M~unit  value  of  ref.  profile  1,  level  1 

0.  :  Height  &  M“unit  value  of  ref.  profile  1,  level  2 

0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  3 

118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

330.  :  Height  &  M-unit  value  of  ref.  profile  2,  level  1 

352.5  :  Height  &  M-unit  value  of  ref.  profile  2,  level  2 

343.3  :  Height  &  M-unit  value  of  ref.  profile  2,  level  3 

461.1  :  Height  &  M-unit  value  of  ref.  profile  2,  level  4 

:  Number  of  ground  composition  types 
:  Ground  composition  types  (0=  sea  water) 

:  Range  at  which  ground  composition  type  is  applied  in  m 

:  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 

8  :  Range  &  height  of  terrain  point  1  in  meters 
8 

9 
9 

10 

11 

12 

13 

14 

15  :  Range  &  height  of  terrain  point  10  in  meters 
17 

19 

21 

23 

25 

27 

28 

30 

31 

31  :  Range  &  height  of  terrain  point  20  in  meters 

29 
23 
14 
9 
7 
7 
9 

11 

14 

13  :  Range  &  height  of  terrain  point  30  in  meters 

13 
12 
11 
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10200. 

8 

10800. 

8 

11100. 

7 

12600. 

7 

12900. 

6 

14400. 

6 

14700. 

7 

15000. 

8 

15300. 

8 

15600. 

9 

15900. 

10 

16200. 

11 

16500. 

11 

16800. 

12 

17400. 

12 

17700. 

13 

18000. 

13 

18300. 

14 

18600. 

15 

18900. 

16 

19200. 

18 

19500. 

20 

19800. 

21 

20100. 

22 

20400. 

23 

20700. 

24 

21000. 

24 

21300. 

25 

21600. 

26 

21900. 

27 

22200. 

27 

22500. 

28 

22800. 

29 

23400. 

29 

23700. 

30 

24600. 

30 

24900. 

32 

25200. 

34 

25500. 

38 

26100. 

38 

26400. 

36 

26700. 

34 

27000. 

32 

27300. 

27 

27600. 

15 

27900. 

6 

28200. 

1 

28500. 

0 

64500. 

0 

64800. 

8 

65100. 

30 

65400. 

39 

65700. 

61 

66600. 

61 

66900. 

24 

67200. 

14 

67500. 

26 

67800. 

16 

68100. 

1 

68400. 

1 

68700. 

0 

73800. 

0 

74100. 

1 

74400. 

1 

74700. 

10 

75000. 

8 

75300. 

39 

Range  &  height  of  terrain  point  40  in  meters 


Range  &  height  of  terrain  point  50  in  meters 


Range  &  height  of  terrain  point  60  in  meters 


Range  &  height  of  terrain  point  70  in  meters 


Range  &  height  of  terrain  point  80  in  meters 


Range  &  height  of  terrain  point  90  in  meters 


Range  &  height  of  terrain  point  100  in  meters 
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75600. 

45 

75900. 

53 

76200. 

61 

76500. 

61 

76800. 

82 

77100. 

61 

77400. 

78 

77700. 

61 

78000. 

129 

78300. 

30 

78600. 

46 

78900. 

159 

79200. 

184 

79500. 

226 

79800. 

152 

80100. 

201 

80400. 

244 

80700. 

152 

81000. 

143 

81300. 

91 

81600. 

107 

81900. 

152 

82200. 

152 

82500. 

170 

82800. 

152 

83100. 

66 

83400. 

70 

83700. 

121 

84000. 

152 

84300. 

170 

84600. 

141 

84900. 

139 

85200. 

147 

85500. 

177 

85800. 

152 

86100. 

61 

86700. 

61 

87000. 

70 

87300. 

44 

87600. 

11 

87900. 

1 

89400. 

1 

89700. 

61 

90000. 

84 

90300. 

152 

90600. 

152 

90900. 

101 

91200. 

40 

91500. 

15 

91800. 

20 

92100. 

2 

92400. 

10 

92700. 

4 

93000. 

1 

93300. 

1 

93600. 

0 

93900. 

1 

96300. 

1 

96600. 

0 

96900. 

1 

97500. 

1 

97800. 

2 

98100. 

3 

99300. 

3 

99600. 

2 

99900. 

100200. 

2 

Range  &  height  of  terrain  point  110  in  meters 


Range  &  height  of  terrain  point  120  in  meters 


Range  &  height  of  terrain  point  130  in  meters 


Range  &  height  of  terrain  point  140  in  meters 


Range  &  height  of  terrain  point  150  in  meters 


Range  &  height  of  terrain  point  160  in  meters 


Range  &  height  of  terrain  point  167  in  meters 


35 


8.10  RNGDEP.IN 
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EF.LERR6  error  flag 
EF.LERR12  error  flag 
Frequency  in  MHz 
Antenna  height  in  m 
Omni  antenna  type 
Horizontal  polarization 

Beainwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Minimum  output  height  in  m 

Maximum  output  height  in  m 

Maximiam  output  range  in  m 

Number  of  output  height  points 

Number  of  output  range  points 

Maximum  propagation  angle  (0=automatic  internal  calculation) 

Number  of  refractivity  profiles 
Range  of  first  refractivity  profile  in  m 
Range  of  second  refractivity  profile  in  m 
Number  of  levels  in  refractivity  profiles 


0. 

330. 

Height 

& 

M-unit 

value 

of 

ref. 

profile 

1, 

level 

1 

100 

342.5 

Height 

& 

M-unit 

value 

of 

ref. 

profile 

1, 

level 

2 

230. 
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Sc 

M-unit 

value 

of 

ref. 

profile 

1, 

level 

3 

2000. 

517.82 
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Sc 
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of 

ref. 

profile 

1, 

level 
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Sc 

M-unit 
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of 

ref. 

profile 

2, 

level 

1 

600. 

405. 
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Sc 

M-unit 

value 

of 

ref. 

profile 

2, 

level 

2 

730. 

375. 
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Sc 

M-unit 

value 
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ref. 

profile 

2, 
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3 

2000. 

522.32 
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Sc 
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ref. 

profile 
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1 

:  Number  of  ground  composition  types 

0 

:  Ground  composition  types  (0= 

=  sea  water) 

0. 

:  Range  at  which 

ground 

composition  type  is  applied  in 

m 

:  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


8.11  SINEX.IN 
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:  EF.LERR6  error  flag 
:  EF.LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 
:  Sin(x)/x  antenna  type 
:  Horizontal  polarization 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Maximum  propagation  angle  (0=automatic  internal  calculation) 

:  Number  of  refractivity  profiles 
:  Range  of  first  refractivity  profiles  in  m 
:  Number  of  levels  in  refractivity  profiles 
0,  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

:  Number  of  ground  composition  types 
:  Ground  composition  types  (0=  sea  water) 

:  Range  at  which  ground  composition  type  is  applied  in  m 

:  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 
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8.12  VERTSEA.IN 


.true.  :  EF.LERR6  error  flag 
.true.  :  EF.LERR12  error  flag 
300.  :  Frequency  in  MHz 

25.  :  Antenna  height  in  m 

0  ;  Omni  antenna  type 

V  :  Horizontal  polarization 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

300000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0.  :  Maximum  propagation  angle  (0=automatic  internal  calculation) 

1  :  Number  of  refractivity  profiles 

0  :  Range  of  first  refractivity  profiles  in  m 

4  :  Niomber  of  levels  in  refractivity  profiles 

0.  339.  :  Height  &  M-*unit  value  of  ref.  profile  1,  level  1 

250.  368.5  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

300.  319.0  ;  Height  &  M-unit  value  of  ref.  profile  1,  level  3 

1000.  401.6  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

1  :  Number  of  ground  composition  types 

0  :  Ground  composition  types  (0=  sea  water) 

0.  :  Range  at  which  ground  composition  type  is  applied  in  m 

0  :  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 


8,13  VERTMIX.IN 


.true.  :  EF.LERR6  error  flag 

.true.  :  EF.LERR12  error  flag 

100.  :  Frequency  in  MHz 

10.  :  Antenna  height  in  m 

0  :  Omni  antenna  type 

V  :  Horizontal  polarization 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Minimum  output  height  in  m 

100.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0.  :  Maximum  propagation  angle  (0=automatic  internal  calculation) 

1  :  Number  of  refractivity  profiles 

0.  :  Range  of  first  refractivity  profiles  in  m 

2  :  Number  of  levels  in  refractivity  profiles 

0.  0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  118  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

2  :  Number  of  ground  composition  types 

4  :  Ground  composition  type  1  (4=very  dry  ground) 

0.  :  Range  at  which  ground  composition  type  1  is  applied  in  m 

0  :  Ground  composition  type  2  (0=  sea  water) 

25000.  :  Range  at  which  ground  composition  type  2  is  applied  in  m 

2  :  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 

0.  0.  :  Range  &  height  of  terrain  point  1 

50000.  0.  :  Range  &  height  of  terrain  point  2 
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8.14  WEDGE.IN 


.true.  :  EF.LERR6  error  flag 

.true.  :  EF.LERR12  error  flag 

1000.  :  Frequency  in  MHz 

25.  :  Antenna  height  in  m 

0  :  Omni  antenna  type 

H  :  Horizontal  polarization 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

100000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  ;  Number  of  output  range  points 

0  :  Maximum  propagation  angle  (0=automatic  internal  calculation) 

1  :  Number  of  refractivity  profiles 

0  :  Range  of  first  refractivity  profiles  in  m 

2  :  Number  of  levels  in  refractivity  profiles 

0.  0.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  118.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

1  :  Number  of  ground  composition  types 

0  :  Ground  composition  types  (0=  sea  water,  perfect  cond.  if  H  Pol) 

0.  :  Range  at  which  ground  composition  type  is  applied  in  m 

5  :  Number  of  terrain  range/height  points  (if  0,  then  will  ignore  remainder) 
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